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EL£3SE^B&aD XiziJLS 

#A- No_LINE_#0 is allowed in ZBASIC 2.2 

#B. Memgry_sizB_must_be_set be-fore loading ZBASIC 2.2 
cassette Version else unusual problems will result 

Version Memgry_Size_Limit 

ZXC16 & ZXCM16 21000 

ZXC32 & ZXCM32 29000 

ZXC48 & ZXCM48 37000 

#C. TIME* will NOJ function on the MODEL III computer. 

#D. INPUT#1, var (, var. .. ) in the DISK versions is allowed. 

#E. All ZBASIC 2.2 DISK functions do work with NEWDOS80 2.0 
except 'LOF(n)' and ' L0C(n ) ' . 

#F. It is O.K. to reload the compiler when chaining programs 

when relocating but you must use the same memory size limit 
when re-entering the compiler. 

#G. For advanced programers to find the address of the 256 byte 

disk buffer just use the VARPTR(var*> where var* is the 

first variable fielded into the disk buffer. The FILE DCS 

is located 64 bytes below the DISK buffer. 

IN, 

#H. Note: D0_N0T use variables used' a FIELD statement on a 
lower line # than the FIELD statement itself or strange 
results may result. 

#1. Just a note you may not have any high-memory drivers in 

the computer when running the ZBASIC 2.2 compiler and you 
MUST set the memory size when entering BASIC or the 
ZBASIC 2.2 COMPILER will not run correctly. 

#J. Use CAUTION not to leave GOSUB's without RETURN'S as if 

more than about 20 of these are in your program the stack 
will overflow causing the computer to crash. 

#K. Remember the ZBASIC 2.2 created program does not store 

variables the same way BASIC does so the fallowing cautions 
should be used when converting programs. 

a- VARPTR(varS) points to the first character in a string 
the string is terminated with a zero byte. 

b. VARPTR(var) points to the LOW byte of an integer value 

c. SPECIAL BASIC SORT machine language routines will not 
work with ZBASIC 2.2 strings. 

d- If your program puts a string into a variable longer 
than the variable length is set for at the parameter 
section of ZBASIC 2.2 then other variables will be 
altered causing strange results. 

e. When using ©math values the shortest string length 
should be set to 36 characters. 

#1, T/te fivro flDDir'0'0 o? tvc "/ms" h$$ been J$?moqcX> To 




TRS-80 MODEL-III 

48K 2 DRIVES+CONTROLLER. 



1899.00 



APPLE 1 1 PLUS 1249. 95 

1ST DRIVE (W/CONTROLLER) 589.95 

2ND DRIVE 499. 95 

APPLE MONITOR 249.95 

MONITOR STAND 29.95 

MICROSCI DRIVE W/CONTROLLER 499.95 

MICROSCI DRIVE WO/CONTROLLER 399.95 

R. H. SUPER FAN-1 1 69. 95 

APPLE WRITER II 149. 95 

GRAPPLER plus 169.95 

SMITH CORONA TP-1 12 CPS 699.95 

DAISY WHEELS 7. 95 

FILM RIBBONS 3.95 

MULTISTRIKE RIBBONS 7. 95 

BYTEWRITER 795. 00 

BROTHER HR-1 999. 95 

DAISY WHEELS 7. 95 

FILM RIBBONS 3.95 

OKIDATA ML-80 SOcps 369.95 

OKIDATA ML-82 120cps 499.95 

OKIDATA ML-83A 120cps 799.99 

OKIDATA ML-84 200cps 1299. 99 

EPSON MX/80FT W/GRAFTRAX 559.95 

EPSON MX/100 799.95 

EPSON GRAFTRAX 89.95 

EPSON RIBBONS 14. 95 

TEC C- I TOH STARWR I TER . . . 40CPS . PRLL . . 1 649 . 95 
TEC C-ITOH STARWRITER...40CPS.SRLL..1799.95 
TEC C-ITOH PR0WRITER..100CPS.SRLL.DM.649.95 
TEC C-ITOH PR0WRITER..100CPS.PRLL.DM.499.95 

RIBBONS PROWRITER 12. 95 

RIBBONS STARWRITER 19. 95 

DAISY WHEELS 12. 95 

KAYCOMP II 1789. 00 

SANYO COLOR 499. 95 

BMC B/W 109. 95 

BMC COLOR 299.95 

ZENITH GREEN 149. 95 

APPLE-I II GREEN 149. 95 

USI AMBER 189. 95 

AMDEK VIDEO 100 GREEN 97. 50 

BMC (RED GREEN BLUE) "COLOR" 599. 95 
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To Whom it may concern, 

Simutek Computer Products Inc. and Andrew Gariepy, the 
sole owners of the copyrighted program ZBASIC, authored by 
Andrew Gariepy, hereby state publicly that all or any programs 
created with ZBASIC shall be sold or bought without royalty 
payment to Simutek Computer Products Inc. or it's author. 
However, any programs compiled usinq ZBASIC shall state at the 
start of the program for at least one second , and in the 
documentation: 

THIS PROGRAM WAS COMPILED USING THE ZBASIC CCMPILER. COPYRIGHT 
SIMUTEK COMPUTER PRODUCTS INC. and ANDREW GARIEPY. 



The sale, distribution or giving away of ZBASIC 
documentation or programs is strictly forbidden and unlawful 
and does great damage to both Simutek Computer Products Inc. 
and the author. Such action or actions shall be subject to 
immediate criminal prosecution. The originally purchased ZBASIC 
is for one user only and all backups and copies shall remain 
the property of that person. All ZBASIC programs contain the 
serial number of the user. Found unauthorized copies shall 
dictate immediate. and harsh legal action. 

Simutek Computer Products Inc. and Andrew Gariepy shall 
have no responsibility for any program or programs created 
using ZBASIC. Simutek Computer Products Inc. and Andrew Gariepy 
shall have no liability to persons or company s that buy or sell 
programs made with ZBASIC. Simutek Computer Products Inc. and 
Andrew Gariepy shall have no responsibility or liability to 
anyone for anything whatsoever concerning ZBASIC compiled 
programs or ZBASIC. 




Signed^ 
Michael - A 
President 
Simutek Computer Products Inc. 
4897 E. Speedway Blvd. 
Tucson, Arizona 85712 
(602) 323-9391 
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INTRODUCTION 

ZBasic 2.2 is the latest version of the ever-popular ZBasic compiler. 
This version is the most extensive to date, with random access file 
handling, improved high-precision math and numerous other additional 
features. 

However, regular Basic and ZBasic are different in some respects, and 
you should be aware of these differences before you begin to use 
ZBasic. This manual will detail all the differences between the two 
and will offer you aid in converting programs. 

The ZBasic Diskette 

The ZBasic diskette is a formatted single density diskette with six. 
files on it. The diskette does not have a DOS on it. However, the- 
diskette does have a file transfer utility. This utility will enaM-ei 
Mod I users that have only 1 drive to transfer ZBasic onto a system 
diskette . 

These are the files that are on the diskette: 



ZXC32/CMD 

ZXCD32/CMD 

ZXCDM32/CMD 



ZXC48/CMD 

ZXCD48/CMD 

ZXCDM48/CMD 



CMDFILE/CMD 



32K ZBasic 

32K ZBasic with disk I/O supported 
32K ZBasic with disk I/O and high- 
precision math supported 

48K ZBasic. 

48K ZBasic with disk I/O supported 
48K ZBasic with disk I/O and high- 
precision math supported 

Machine language merge utility 



Model I Loading Procedure 

The ZBasic diskette is a formatted diskette with the ZBasic files but 
no DOS. To transfer the files using a two-drive system, put a DOS 
diskette in drive 0, the ZBasic diskette in drive 1, and copy the 
files over. 



Since this method won't work on a one-drive system, we have 
file transfer utility. If you have only one drive, put 
diskette into your drive and boot the system. The file load 
will come up and you'll see a directory listing and 
information. The utility will then ask for the destina 
number. Since you are transferring using only one drive, hi 
program will then ask you to mount the destination diskette 
with a DOS and plenty of free space will do. Just stick thi 
into the drive and go from there. The utility will continue 
you to mount either the destination or the source diskette 
the files have been copied over. 
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Model III Loading Procedure 

To transfer ZBasic to a Model III diskette you have to use the CONVERT 
utility to use the convert utility you must have two drives. If you 
don't have access to a two drive Model III, return the ZBasic diskette 
along with a diskette with DOS on it and we'll convert it for you. 

If vou have access to a two drive Model HI f insert your ZBasic 
diskette into drive 1 and a diskette with DOS and plenty of free space 
into drive 0. Then run the CONVERT utility. The source drive is 1 and 
the destination drive is 0. The CONVERT utility will then copy all the 
versions of ZBasic down to your Model III diskette (provided you have 
enough room on the diskette) . 

Loading from Tape 

There are six separate ZBasic tape versions. 

Tape Filename Version Description 

Side One 

Z XC16 1 6K ZBasic. 

ZXC32 32K ZBasic. 

2XC48 48K ZBasic. 

Side Two 

ZXCM16 16K ZBasic with high-precision math. 

ZXCM32 32K ZBasic with high-precision math. 

ZXCM48 48K ZBasic with high-precision math. 

(Model III users should note that the ZBasic tape is recorded 
at low cassette speed.) 

All the versions are loaded by typing 'SYSTEM' from Basic and then 
typing the name of the version. After the tape has loaded, type a 
slash and ZBasic will come up. 

Running ZBasic 

To load ZBasic into memory on a disk system, simply type the name of 
the version you wish to use. Loading on a tape system was explained 
above . 
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After ZBasic has loaded into your machine, the screen will look 
somewhat like this: 

******************************* 

* ZBASIC 2.2 BASIC COMPILER * 

* Read manual before changing * 

* any of the parameters!! * 

* Copyright 1982 SIMUTEK INC. * 
******************************* 

Memory size limit 41000 or less 
Change parameters (Y/N) ? 

(The memory size limit will vary from version to version..) 

ZBasic is asking you if you wish to change any of the parameters.. 
These parameters are the various values associated with ZBasic, such 
as string length etc. Hit 'Y' so that you can get a, glimpse afc the 
parameters and their current values. Simply hit the return key to go 
on to each new parameter. 

The first parameter you can change is the array string length. If you 
change this parameter, each element in a string array will take up the 
number of bytes that you indicated. The normal string size can also be 
changed. Similarly, if you change the normal string size parameter, 
all non-array strings will take up the number of bytes that you 
indicated. These two commands are especially useful when memory is at 
a premium. Reducing these two parameters can buy the programmer extra 
memory. 

The 'Top of Variable RAM 1 and the 'Base Address of Object 1 parameters 
will be explained in the relocation section of the manual. Ignore -them 
for now. 

ZBasic also allows you to specify the maximum number of characters 
that can be typed into a string when the INPUT statement is used. For 
example, if you specify a value of 50 for this parameter, ZBasic will 
not allow any more than 50 characters to be typed into an INPUT 
string. The 51st character will not echo to the screen nor will it be 
put into the string. 

The 'Warm or Cold 1 start parameter is used for chaining programs. It 
will be explained later. 

The memory size limit (41000 in the above example) is important; 
remember it for later reference. 

After you have looked at all the parameters, the 'Change Parameters' 
message will pop up again. If you wish to change any parameters hit 
»Y'. To replace a parameter value, simply type in the new value. To 
leave a value as it is, just hit return. 

If you are using a disk system, you should now load disk Basic. 

Remember to set the memory size to the limit discussed earlier. (For 

example, some Basics ask for a 'Mem Size' before you enter Basic. So, 

instead of just hitting the enter key, you would type in the memory 
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«i 7 e limit. Other Basics will require that you type the size limit on 
the same lino as the command to enter Basic. Check your DOS manual for 
deifies! It can't be emphasized enough: you must set the memory 
size limit or Basic will clobber the memory where ZBasic resides. 

Now you are ready to use ZBasic. 

ZBasic Theory 

ZBasic and Basic are co-resident; they are both in memory at the same 
time. This is the ultimate in convenience because it eliminates the 
need'to be continually loading programs. 

To use ZBasic, first load or type a program into regular Basic. You 
miaht then edit this program some. When you're ready to compile the 
prSramf hit the -z',"X- and 'C keys simultaneously Provided there 
werl no errors in the program, you'll see a display like this: 

Compiled by ZBasic 2.2 
SIMUTEK INC. TUCSON, AZ 

(C) 1982 Andy Gariepy 
Pass l,Pass 2, Pass 3 

Compiled Size Basic size Variable size 
02688 00352 00288 

(R)un (B)asic (S)ave : 

At this point you have three choices: you can hit the 'B' key to 
AL «-"■«■» ^ . ., „,„ m f *.uo, ici kpv to save the machine language 
return to Basic, you can hit the S key to save tne ™<* machine 

version of your program, or you can type »R' to run the machine 
language version of your program. - 

Hittina the 'B' key will dump you right back into Basic. Your program 
will still be there. At this point you could edit your program and 
then jump back to ZBasic and compile again. 

Hitting the 'S' key will allow you to save the machine language 
version of your file. Disk users need not specify the '/CMD'; ZBasic 
automatically add it on If the file already exists on disk, 
ZBasic, as a precaution, will ask you if you want to replace it. ir 
the file doesn't exist ZBasic will ask you if you want to create it. 
Tape users need only specify a valid filename. 

Watch out for error messages when using the compiler. One error 
message that may pop up is the 'Variable/Code Conflict' message This 
message means that either the program or the variables a e too arge 
You'll either have to reduce the size of the .program or the variables 
(and sometimes both) . Another solution might be to ^ate the 
program. Both the error messages and the relocation feature are 
explained later on in the manual. 
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Variables in ZBasic 

ZBasic allows two types of variables: string and integer. (ZBasic*s 
high-precision math variables are stored as strings. This will be 
covered later.) 

Unlabeled variables or variables followed by a '%' sign are integers. 
ALL other variables (variables followed by , # , , , $ l or "I 1 signs) are 
strings. 

Definitions 

Below are some terms that are used to explain statement synta-x 
throughout this manual. Make sure that you are familiar with the 
difference between simple and complex strings. 



1 expr ' 



numb 



'byte 1 



Integer Expression. Examples include: 
100 f A+B* (4*6+4/4) 
ABS(INT(RND(1) ) ) 

Integer number from to 65535 or 

-32678 to 32767 (or from hex %0000 to 
%FFFF.) 

Integer number from to 255 or from 

%00 hex to %FF hex. If the number to be 

evaluated as a byte is larger than 255, 
the lower 8 bits will be used. 



1 sstr ' 



Simple string. 
Examples include: 
"HELLO", CHR$ (43) ,A$ 
A$(8) ,INKEY$ 

A complex string is a string that 
contains functions or a string 
expression in general. All the 
following strings are complex strings 

RIGHT$ (A$,3) ,LEFT$ (B$,5) ,A$+B$ 



' var f 



fnum 1 



Variable name. 
Examples include: 
A$,B#,D$,E! 

Disk file number (1-8) 



Note: The phrase 'physically before 1 means the statement must appear 
on a lower line number or earlier in a program line than the parameter 
being defined. 
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KEYWORDS 

The following pages are an alphabetically ordered list of ZBasic 
keywords and the functions they perform. Some statements will be 
exactly or nearly exactly the same as their Basic counterparts. These 
statements will be touched upon only lightly. Special ZBasic keywords 
will be explained at more length. 

A (D) means the keyword is available in disk ZBasic only. 
An (M) means the keyword is available in @Math ZBasic only. 

ABS (expr) 

Removes the sign (if negative) of the expression in the 
parentheses. Note that the absolute value of -32768 is 0. 

AND 

Logical AND of two 16 bit expressions. 

ASC (sstr) 

Returns the ASCII code of the first character of the simple 
string. A null string returns 0. 

ATN ( ) 

Not supported by ZBasic. See page 53. 

AUTO (bits,dur,freq) 

A tone generation statement. 'Bits 1 is a tone parameter 
(usually 256), 'dur' is the duration (relative from 1 to 
100, no relation to any specific time unit), and 'freq' is 
the frequency (from 100Hz to 15000Hz). 

Example: 10 AUTO (256,20,1000) 

This line will play a short lKHz 'beep. 1 

CDBL (#bytes,key,start) 

A search function. kbytes 1 is the number of bytes to 
search, 'key 1 is the particular byte being searched for, and 
'start 1 is the starting memory location of the search. The 
search will begin at 'start' and will count backward (start, 
start-1, start-2, etc.) until '#bytes' have been searched. 
The argument returned will be the last location searched 
minus one. The returned value will either be the memory 
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location before the located key or it will be the end of the 
list, indicating the key was not found. (This is the same as 
the CPDR Z-80 instruction) 

Example: 10 X=CDBL (16000 ,ASC ("A") , 16000) 

This line searches backwards through the first 16K for the 
letter 'A 1 . 



CHR$ (expr) 

Will convert an integer expression, to the matching ASCII 
character. 



CINT ( #bytas, key ,. start) 

Same as CDBL except the search counts forward (start, 
start+1, start+2, etc.) until kbytes 1 have been searched. 
The argument returned will be the last location searched 
plus one. The memory location returned will either be the 
byte after the located key or the end of the list, 
indicating the key was not found. (This is the same as the 
CPIR Z-80 instruction) . 

Example: 10 A=CINT (16000 ,ASC ( "A") ,0) 

This line searches- forward — through the first 16K for the 
letter 'A' . 



CLEAR expr 

Clears all variables to either nulls or as appropriate. 
ZBasic ignores the expression after the CLEAR statement. 



CLOAD #bytes, start 

Cassette load statement. Loads '#bytes' from tape into 
memory starting at location 'start'. '#bytes' must be less 
than or equal to 256. 

Example: 10 CLOAD 255 ,VARPTR (A$ ) 

The above line loads 255 bytes from tape into A$. 

CLOSE fnum( , fnum. ..) 

Close disk files. The file numbers must be included. 
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CLS 

Clears the video display screen and resets the 32 character 
mode • 



CMD sstr 

Executes the DOS command in the simple string. Available to 
Newdos 80 Version 2 users exclusively. 

Example: 10 CMD "DIR" 

This line will execute the Newdos 80 Ver 2.0 directory 
command. DOSPLUS users: see the NAME command. 

CONT (exprl, expr2) 

Returns the actual video MEMORY address of the screen at 
that point; 'exprl* and 'expr2' are graphics point 
coordinates. 

Example: Z = CONT (X f Y) -15360 

This line will set Z equal to the PRINT @ position of the 
graphic point at (X,Y) ► 

COS _._ 

Not supported in ZBasic. See pages 52 and 53. 

CSAVE #byte, start 

Cassette save statement. Saves kbytes' starting at memory 
location 'start' to tape. '#bytes' cannot be larger than 
255. 

Example: 10 CSAVE 25 , VARPTR (A$) 

This line will dump 25 characters from A$ to tape. 

CSNG (exprl f expr2,expr3) 

Machine language call function. 'Exprl' is the address to 
call, 'expr2' will be passed to both the DE register pair 
and to the A register, and 'expr3' will be passed to HL. 
This function returns the HL register pair. 

Example: 10 X=CSNG (%33 ,65 ,0) 

Call ROM location 33 hex to print the letter 'A.' 
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CVD (sstr) (D,M) 

Takes the simple string (usually associated with a FIELD 
statement) and converts it into a ZBasic @Math string. 

Example: @X$=CVD(B$) 

Convert B$ (normally a FIELDed variable) to an QMath string. 

CVI (sstr) (D,M) 

Takes the simple string (usually associated with a FIELD 
statement) and converts it into a ZBasic integer variable. 

Example: 10 X=CVI(B$) 

Convert B$ (normally a FIELDed variable) to an integer. 

CVS (sstr) (D f M) 

Takes the simple string (usually associated with a FIELD 
statement) and converts it into a ZBasic @Math string. See 
CVD for an example. CVD and CVS perform identical functions. 
Both are supported to aid in converting Basic syntax to 
ZBasic syntax. 

DATA numb ,* string* , numb , numb ,.••• 

Holds data to be read by READ statements. Strings must have 
quotes around them. Be careful not to read data in the wrong 
order. 

DEFUSR 

Not supported by ZBasic. 

DEFFN 

Function definitions are not supported by ZBasic. 



DEFB 

Hex byte format specifying statement. All subsequent output 
statements (PRINT, PRINT # etc.) will output the low byte of 
an integer in hex form. If the integer is greater than 255, 
only the low order byte will be output. 
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Example: 10 DEFB-.PRINT 255 

The above line will print 'FF 1 on the screen. 

DEFN 

Standard integer format specifying statement. All subsequent 
output statements (PRINT, PRINT #, etc.) will output the 
integer as a signed number between -32768 and 32767. 



DEFU 

Decimal integer format specifying statement. All subsequent 
output statements (PRINT, PRINT #, etc.) will output the 
integer as an unsigned number between 00000 and 65536. 



DEFW 

Hex format specifying statement. All output statements 
(PRINT, PRINT #, etc.) will output the integer as a hex word 
(0000 to FFFF) . 

Example: 10 DEFW: PRINT 65535 

This line will print the hex number ■FFFF* on the screen. 

DEFDBL var or variable range 

Define specified variable (s) as STRINGS. (This is done 
because ZBasic does all its floating point math in strings) . 
Must appear physically before any of the variables it 
defines • 

Example: 10 DEFDBL A-M:@F= n 100"+"350. 90" 

This line will add 100 and 350.90 into the @Math string F. 

DEFINT var or variable range 

Define specified variable(s) as integers. Must appear 
physically before any of the variables it defines. 

DEFSNG var or variable range 

Define specified variable(s) as strings. (See DEFDBL). Must 
appear physically before any of the variables it defines. 
See DEFDBL for an example. 
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DEFSTR var or variable range 

Define specified variable(s) as strings. Must appear 
physically before any of the variables it defines. See 
DEFDBL — for an example. DEFSNG and DEFSTR perform functions 
identical to DEFDBL. They are supported only as an aid in 
converting Basic to ZBasic. 



DELETE expr 

Time delay statement. Expression evaluates to the number of 
milliseconds to be delayed. (1000 milliseconds = 1 second) . 

Example: 10 DELETE 1000 

This line will delay the program for one second. 

DIM var (num( , numb •♦) ) 

Dimension variable (s) for use as an array. The number of 
elements has to be a number, NOT an expression. The DIM 
statement must appear physically before any of the variables 
it dimensions. 

Example: 10 DIM A$ (25) ,B$ (3 , 30) 

EDIT (bits , cycles, period) 

Tone generation statement. 'Bits 1 is a tone parameter 

(between and 65535), 'cycles' is the number of cycles 

sounded (between 1 and 65535) and 'period 1 is the relative 

time between each cycle (between 1 and 65535) . 

Example: 10 EDIT (256,100,50) 



ELSE 

Keyword to be used in an IF statement for evaluation if the 
statement is false. ELSE can specify a line number or just 
continue on with another statement. ELSE cannot be in the 
last line of a program. 



END 

This statement ends the program and returns control to DOS. 
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EOF (fnum) (D) 

DOS error function. This function returns the number of the 
last DOS error. Can be used as and end-of-file detector by 
checking each time a file is read whether or not a 'Read 
Past End of File 1 error has been detected. 

Example: 10 IF EOF (1) =27 THEN PRINT "Disk Full" 

This line checks for a DOS error. If the error is number 27 , 
•Disk Full 1 will be printed on the screen. 



ERL (fbytes, dest, source) 

Memory move statement. Move '#bytes' starting at 'source 1 to 
memory location starting at 'dest.' This routine copies 
memory location 'source 1 to location 'dest,' 'source+1' to 
'dest+1' and so on until '#bytes» have been copied. (Same as 
the LDIR Z-80 instruction) . 

Example: 10 POKE 15360 , 191 : ERL (1023, 15361 , 15360) 

The above line will white out the screen. 

ERR (#bytes f dest , source) 

Memory move statement. Same as ERL except this statement 
copies from 'source' to 'dest, 1 'source-1' to 'dest-1' until 
'#bytes' have been copied. The progression is down through 
memory instead of up through memory. (Same as LDDR) 

Example: 10 POKE 16383 , 191 : ERR (1023 , 16382, 16383) 

The above line will white out the screen. 

ERROR expr (D) 

DOS error statement. Prints the full error message for the 
DOS error which 'expr' evaluates to. 

Example: 10 ERROR 27 

Prints 'Disk Space Full' on the screen. 

EXP ( ) 

Not supported by ZBasic. See page 53. 
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FIELD fnum, byte AS var, ••♦. (D) 

Disk file FIELDing statement. •Fnum 1 cannot be an expression 
and the "var'iables have to be strings. (String arrays are 
not permitted) . This statement must appear physically .before 
any of the variables used in the statement. 

FIX (#bytes, bits, start) 

Memory 'XOR' function. This function XOR's the bit pattern 
'bits 1 against memory starting at 'start' until '#bytes' 
have been XOR'ed. Using 63 as 'bits' is a good way to invert 
the graphics screen. 

Example: 10 X=FIX(1024, 63 ,15360) 

The above line will 'invert' the graphics on the screen. 



FN 

Remainder function* For example, the statement »A = 10 FN 3' 
will result in setting A to 1. Three goes into ten 3 times 
with a remainder of one. 

FOR var » expr TO expr (STEP numb) 

Iteration statement. The largest value that can be counted 
to is 32767 minus the amount of the step. FOR loops use 
integer values only. 

FRE (expr) 

Argument passing function. This function allows a ZBasic 
program to be called as a USR routine from a Basic program. 
Here is an example to explain the use of this function: 



10 REM BASIC PROGRAM 

20 REM 

30 DEFUSR0=&HF000 <— Address of ZBasic routine 

40 X=USR(9999) < — Jump to routine and pass '9999 

50 PRINT "Value from ZBasic routine is ";X 

60 END 

10 REM ZBASIC PROGRAM 

20 REM . , iiooyiei 

30 BV=FRE (12345) <— Get '9999' from Basic and pass^ 12345 
40 PRINT "Value passed from Basic :";BV < — Will be '9999' 
50 RETURN 
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n ^ nrarn ran nlv read the passed value with the 
The ZBasic program can oniy reau £ P =FRE (12345) ' 

™. £ r.ss- °r nt o tx r h ; p^Lff sss ^i l 1^5 

and not 9999. 

GET (#)fnum( r expr) (D) 

j ~., m K^r- ipvnr' from file number * fnum.' 
Get the record number expr lj-uiu j-j-j.^ 

GOSUB numb 

Rranch to line number 'numb' and return to the next 
statement upon encountering a RETURN statement. 'Numb may 
not be an expression. 

GOTO numb 

Branch to line 'numb.' 'Numb' may not be an expression. 

IF expr THEN <numb or statements> 




INKEY$ 

„=,« f„n^inn TNKEY$ returns the character string 
Keyboard scan f unction. I«KtY^ r« pressed, 

of the key currently being pressea. it '^ Jf *- 
INKEY$ returns a null. 



INP (expr) 

Get the value of the input port specified by 'expr.' 

INPUT ("<message>";) var ( ,var) 

input data from the keyboard. If a string, is being input, it 



m 



ust be the only variable input 



Example: 10 INPUT A$,A 

20 INPUT A$: INPUT A 

■, i ~~ * c •? e nnf t-hp onlv variable. Line 
Line 10 is illegal because A$ is not tne oniy 

20 is legal. 
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INPUT @expr, ("<message> m ;var(,var) 

Same as INPUT except the prompt starts at the screen 
location 'expr. 1 



INSTR (expr r sstr, sstr) 

String search function. Search the first string to see if it 
contains the second string. Start the search 'expr 1 
characters from the left. The 'expr' is MANDATORY. This 
function returns a zero if the second string is not 
contained within the first. 

Example: 10 A$=LEFT$ (X$, INSTR (XI ," ," , IN$) ) 

Their must be a variable or expression where XI is. 

INT (expr) 

Ignored by ZBasic. See page 41. 

KILL sstr 

Kill the disk file specified in the simple string. 

LEFT$ ( sstr r expr) 

Take the amount of characters specified in expr from the 
left side of the string.. The string argument must be a 
simple string. 

LEN (sstr) 

Function to return the length of the simple string. 

LET 

Optional variable assignment statement. 

LINEINPUT #fnum,var (D) 

Input a string from file ■ fnum' until a cr/lf sequence is 

input or 255 characters are read from the file. This is a 

disk I/O statement only. Use the regular INPUT statement for 
keyboard line input. 
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LIST 

Not supported by ZBasic. (LIST from Basic only) 

LLIST 

Not supported by ZBasic. (LLIST from Basic only) 

LOAD sstr (D) 

Load the machine language file specified by the simple 
string into memory. The loaded file must not conflict with 
the program that loads it. 

Example: 10 LOAD "DATA/ CI M" 

The above line loads the core image file 'DATA/CIM 1 into 
memory. 

LOG (fnum) (D) 

This function returns the present record number. Note that 
this function may not work with some DOSes (specifically 
Newdos 80 Ver 2.0) . 

LOF (fnum) (D) 

This function returns the last record in a file. Note that 
this function may not work with some DOSes (specifically 
NEWDOS Ver. 2.0) . 

LOG ( ) 

Not supported by ZBasic. See page 52. 

LPRINT <prompts f messages and/or variable (s)> 

Statement to output information to the line printer. 

LSET sstr = sstr (D) 

Load a string into a fielded buffer. The string on the left 
must have been FIELDed earlier and the string on the right 
has to be a simple string. 

Example: LSET A$=B$ 

Load B$ into the FIELDed string A$ . 
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MEM 



This function returns the address where the currently 
compiled code will be. For more information see the special 
MERGE section. 

Example: 10 DEFW: PRINT MEM-.DEFN 

The above line (placed at the start of a ZBasic program) 
will print the present address of the program in hex. 



MERGE 

See the special MERGE section on page 24. 

MID$ ( ss tr , start , #char ) 

Function to take a portion of a string. The function will 
return the piece of the simple string that begin at start 
and is •tchar* characters long. 

MID$(sstr,start r #char) » sstr 

MID$ assignment statement. The sstr on the- right side-o-fy the- 

i „ ^4,-,„ fnr *c: mnrh as can fit) will be inserted into 
equals sign (or as mucn as can j.± w w-lx-l .. 

the left hand simple string starting at the portion 
specified by the MID$ argument. 

MKD$ (sstr) (M,D) 

This function converts an (§Math string into the format used 
by FIELDed variables. The function can only be used with 
FIELDed variables. 

Example: (§B$=MKD$ (A$) 

The FIELDed variable B$ is loaded with the (§Math string A$. 

MKI$ (expr) (M,D) 

This function convert an integer expression into the format 
used by FIELDed variables. This function should be used with 
FIELDed variables only. 

Example: @B$=MKI$ (A+2) 

The FIELDed variable B$ is packed with the expression A+2. 
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MKS$ (sstr) (M f D) 

This function converts an @Math string into the format used 
by FIELDed variables. The function should only be used with. 
FIELDed variables. See MKD$ for an example. 



NAME sstr (D) 

This statement exits the ZBasic program and executes the DOS 
command in the simple string. This function will not return 
control to the ZBasic program after the command is executed 
except in DOSPLUS. 

Example: 10 NAME "DIR" 



NEW 

Not supported by ZBasic. 

NEXT (var,(var ,..•)) 

End of a loop started with a FOR statement. Each loop in a 
ZBasic program must consist of one FOR statement and one 
NEXT statement. There cannot be multiple NEXT statements for 
one FOR statement. 



NOT (expr) 

Logical NOT operator. This operator requires that the 
expression have parentheses around it. 

ON expr (GOTO or GOSUB) numb , numb , numb 

Branch control to the indicated line depending upon the 
value of the expr. A 1 will go to the first number, 2 to the 
second, and so on. 

OPEN "I or or R" f fnum,sstr (D) 

Open a disk file for I/O. If the file is non-existent, the 
'0' option will create it, the 'I' and 'R» options will not 
create a new file. 



OR 

Logical integer OR operator. 
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OUT exprl r expr2 

Send to output port ' exprl * the ASCII code , expr2. 1 

PEEK (expr) 

This function retrieves the value of the memory location 
defined by 'expr. 1 



PEEKW (expr) 

This function retrieves the 16 bit word starting (in 
low-high order) at the memory location defined by 'expr. 1 

Example: 10 Xl=PEEK(19001) *256+PEEK(19000) 
20 X2=PEEKW(19000) 

The variables XI and X2 will be indentical. Line 20 executes 
50 times faster. 



POINT (exprl f expr2) 

This function returns a -1 if the graphics point at 
coordinate ( exprl r expr2) is on; if it is not. 

POKE exprl, expr2 

This statement puts f expr2' into memory at memory location 
1 exprl. ■ 

POKEW exprl ,expr2 

This statement puts word , expr2 l into memory (in low-high 
order) at location 'exprl. 1 

Example: 10 POKEW 15360,-32767 

This line will poke FF into address 15360 and 7F into 
address 15361* 



POS(0 or 1) 

print or screen position function. Used with a argument, 
the position of the print head is returned. Used with a 1, 
the PRINT @ position (0-1023) is returned. 

Example: 10 LPRINT TAB (POS (0) +10) ; "HELLO" 
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The above line will print 'HELLO' ten characters from the 
current printer carriage position. 

PRINT (@expr,)<prompts, messages, @exprs and/or variable (s)> 

Output information to the screen. 

PRINT #fnum f <prompts f messages and/or variable (s)> (D) 

Output information to disk file number * fnum. 1 

PUT (#)fnum ( r expr) (D) 

put the contents of the file buffer for file ' fnum' into the 
disk file at record 'expr.' 

RANDOM 

This statement reseeds the random number generator. 

READ var ( f var) 

Read the information from a DATA statement into the 
variables indicated. Make sure that your ZBasic program 
reads the data in the correct order and that you have quotes 
around all strings that are in DATA statements. 

REM remarks 

This statement leaves the rest of the line open for program 
remarks. 

RESET (exprl r expr2) 

This statement turns the graphics dot at coordinate 
(exprl,expr2) off. 

RESTORE 

This statement will reset internal pointers so that any 
subsequent READ statements will start with the first DATA 
statement. This statement should be used to reset the 
internal pointer if you READ data in a program using 
ZBasic's warm start feature. 



ZBasic 20 



RESUME (D) 

This statement will call the system debugger (on a disk 
based system)* Hit 'G' in DEBUG to return to the ZBasic 
program. 



RETURN 

This statement returns from a previous GOSUB statement. This 
statement is also used as a return to a Basic program from a 
ZBasic/machine language subroutine. 



RIGHT$ (sstr,expr) 

This function returns the rightmost 'expr* characters of the 
simple string. 

RND (expr) 

This functions returns a random number between 1 and 'expr 1 . 

RSET varl = var2 (D) 

This functions converts the FIELDed string 'var2' into a 
normal string 'varl. 1 FIELDed strings cannot be used until 
they have been converted in this manner. 

Example: 10 RSET A$=B$ 

The string is loaded with the FIELDed variable B$. 

RUN sstr (D) 

Run the program whose name is in the simple string. The 
program has to be a /CMD file; and ZBasic does not assume 
the /CMD. 

Example: 10 RUN "PROGRAM/CMD" 

This line will load and run the machine language file 
'PROGRAM/ CMD.; 

SAVE 

See page 3 for instructions on saving ZBasic programs. 
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SET (exprl, expr2) 

Turn the graphics dot specified by coordinate (exprl ,expr2) 
on. 



SGN (expr) 

This function returns a -1 if 'expr 1 is negative, if it is 
zero and 1 if it is positive. 



SIN ( ) 

Not supported by ZBasic. See page 52. 

SQR (expr) 

Returns the square root of the integer expression. 

STEP numb 

This keyword sets the iteration amount in a FOR loop. The 
amount cannot be an expression or a variable. 



STOP 

This statement ends execution of the ZBasic program and 
returns control to Basic. 



STR$ (expr) 

This function creates a string out of the integer number 
that the expression evaluates to. 



STRING$ (exprl, (sstr or expr2) ) 

This function creates a string 'exprl 1 characters long 
composed of either the simple string or the ASCII code 
defined by , expr2.' 



SYSTEM (DOS or BASIC or numb) 

This statement scans the keyboard and branches to DOS, 
Basic, or line number 'numb' if the break key has been hit. 

Example: 10 SYSTEM BASIC 
20 GOTO 10 
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This program will loop until the break key is hit, at which 
time it will return to Basic. 



TAB (expr) 

This statement tabs to the column indicated by the 
expression. 0-63 on the screen, 0-255 on the printer. 



TAN ( ) 

Not supported by ZBasic. See page 52. 

TIME$ (D) 

This function returns the date and time on a disk-based 
system. 



TRON 

Turn the tracing feature on (from this point physically 
downward) . 



TROFF 

Turn the tracing feature off. 

USING sstr;sstr (M) 

See the PRINT USING section on page 27 

USR (expr) 



This calls a machine language subroutine and passes the 
expression to the HL register pair. This function returns 
the value of HL. The address to call is poked into locations 
16526 (the low byte) and 16527 (the high byte.) 
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VAL (sstr) 

This function converts the ASCII number in the simple string 
into a regular integer number. The ASCII number may be hex, 
decimal, or unsigned. 

Example: 10 X=VAL ( n 10") :Y=VAL ( "%0A n ) : IF X=Y THEN PRINT"= n 
This line will print an equals sign on the screen. 

VARPTR (var) 

This function returns the memory location of the VALUE of 
the variable. It does not return the location of the 
variable name. 

Example: 10 X=VARPTR (A$) : Y=VARPTR (Z) 

This line will put the address of the first character of A$ 
into the variable X and the address of the low byte of 
integer variable Z into the variable Y. 
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INSERTING MACHINE LANGUAGE CODE INTO A ZBASIC PROGRAM 



The MERGE 

or routi 

directly 

function 

relocator 

language 

crashes 

programs 

language , 



statement allows the inser 
ne within a ZBasic progr 
inline with the normal 
also allows access to ZBa 

for direct calls and 

program. Just remember 

if used incorrectly. Car 

before using them. If you 

it might be best to leave 



tion of a machine language program 
am. The code or bytes are inserted 
Z-80 code created by ZBasic. This 
sic variables and a simple address 
jumps within the created machine 
that this function can also cause 
efully test your machine language 
don't have experience with machine 
the MERGE command alone. 



As an example, this MERGE statement .... 

MERGE %CD,MEM+n,%21, 65535 ,%2A,XX$ ,%21 ,XY$ .%01 , 1000, %C9 
Makes the following machine language program. 



MEM: 



CALL 


MEM+n J 


n MUST BE A number 


LD 


HL f 65535 J 


•if n=0 


LD 


(VARXX$) ,HL j 


•if n=3 


LD 


HL,VARXY$ 


r if n=6 


LD 


BC,1000 


?if n=9 


RET 







Using MERGE with the TRON statement 

The TRON statement when active adds 6 bytes of code at each line in 
the program. Make sure this will not conflict with merge programs 
before using this function. You can disable TRON before and re-enable 
TRON" after each MERGEed machine language program to get by this 
problem. 



Examples of MERGE usage 



ZBasic line 



Machine' language created 



MERGE 


%FB 


EI 




;Enable interrupts 


MERGE 


%F3 


DI 




,-Disable interrupts 


MERGE 


%31 f %C000 


LD 


SP,0C000H 


;Load stack pointer 


MERGE 


%ED,%7B,SP 


LD 


(VARSP) r SP 


;Load SP with stack pointer 


MERGE 


%2A,SP,%F9 


LD 


SP,(VARSP) 


;Set stack pointer to SP 
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MERGE %21,%3C00 
MERGE %11, 15361 
MERGE %01 f %3FF 
MERGE %36,191 
MERGE %ED,%B0 



LD HL,3C00H 
LD DE, 15361 
LD BC,3FFH 
LD (HL) ,191 
LDIR 



; Start address of screen 

;Start +1 address 

;# of bytes 

;Byte to fill screen with 

;Block move/fill 



MERGE 
MERGE 



%ED,%5F 
%32,A 



LD 


Pi , ri 






LD 


(VAR 


A) 


,A 


LD 


HL, (VAR 


X) 


SRA 


H 






RR 


L 






LD 


(VAR 


X) 


r HL 



;Read refresh reg 
;Set variable A to 



it 



MERGE %2A,X 
MERGE %CB,%2C 
MERGE %CB,%1D 
MERGE %22,X 



Get value of variable X 
Shift HL right 1 bit 
Very fast divide by 2 
Set new value of X 



MERGE %76 



tlr^Li x 



;Hardware reset Model I 



The following example is a simple clock program for the Model I. 



1000 MERGE %F3, 

1010 MERGE %2A, 

1020 MERGE %32, 

1030 MERGE %F5, 

1040 MERGE %DD, 

1045 IF PEEK(%3 

1050 T=T+1:IFT> 

1060 S=S+1:IFS> 

1070 M=M+1:IFM> 

1080 H=H+1:IFH> 

1085 GOTO1100 

1090 XX=PEEK(%3 

1100 XX=PEEK(%3 

1110 MERGE %FD, 

1120 MERGE %E1, 

1130 RETURN 



%21,MEM+10 

%4013,%3E,%C3 

%4012,%FB,%C9 

%C5,%D5,%E5 

%E5,%FD,%E5 

7E0)AND64THEN1090 

40THENT=0ELSE1100 

59THENS=0ELSE1100 

59THENM=0ELSE1100 

23THENH=0ELSE1100 

7EC) 

7E0) 

E1,%DD,%E1 

%D1,%C1,%F1 



On interrupt goto function 

Make JP 

And turn on interrupts 

Interrupt service start 

Save all registers 

FDC interrupt 

T = tick counter 

S = seconds 

M = minutes 

H = hours 

;Clear FDC interrupt 

;Reset interrupt latch 

;POP IY,IX 

;POP HL,DE,BC,AF 

;RET 
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The following example is a small delay routine using the MERGE feature 

10 PRINT" Example delay routine" 

20 FOR I = 1 TO 100 

30 D=100 : GOSUB 1000 

40 NEXT I 

50 STOP 

1000* Remark statements do not add any bytes or delays to 

1010 • ZBasic programs use them freely to document 

1020* your ZBasic programs. 

1030 MERGE %2A,I' LD HL, (VARD) 

1040 MERGE %2B • DECHL : DEC HL 

1050 MERGE %7C ' LD A,H 

1060 MERGE %B5 ' OR L 

1070 MERGE %20,%FB» JR NZ f DECHL 

1080 MERGE %C9' RET 

The following is a ZBasic MERGE program with several subroutines. 

10 CLS . ■ Merge example program with many subroutines 

20 PRINT"This is just a dumb example program" 

30 INPUT"Input me HL,DE,BC f A ";HL,DE,BC,A 

40 GOSUB 1000* Move ZBasic variables to Z80 reg s 



50 MERGE 

60 GOSUB 

70 DEFW : 

80 

90 

100 

110 GOTO 



%CD,%33,0'— Call your routine here — m 

2000 • Move Z80 reg ' s back to ZBasic Variables - 

PRINT" HL REG AFTER ROUTINE IS " ; HL 

PRINT"DE REG AFTER ROUTINE IS ";DE 

PRINT" BC REG AFTER ROUTINE IS ";BC 

PRINT" A REG AFTER ROUTINE IS ";A 
10 »JP LINE 10 



1010 , Machine language program to set main Z80 reg's with 
1020' ZBasic variables. 



•LD 
f LD 
f LD 
•RET 



HL,(VAR HL) 

DE,(VAR DE) 

BC,(VAR BC) 

A, (VAR A) 



1030 1 

1040 MERGE %2A,HL 
1050 MERGE %ED,%5B,DE 
1060 MERGE %ED,%4B,BC 
1070 MERGE %3A r A 
1080 RETURN 

2000' 

2010'Machine language to read present Z80 

2020' into ZBasic program variables. 

2030 1 

2040 MERGE %32,A 
2050 MERGE %ED,%43,BC 
2060 MERGE %ED,%53,DE 
2070 MERGE %22,HL 
2080 MERGE %C9 



reg's and put then 



"LD 

•LD 
•LD 
•RET 



(VAR A) ,A 
(VARBC) ,BC 
(VARDE) ,DE 
(VARHL) ,HL 



Turn to page 56 for another sample MERGE program. 
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ZBASIC PRINT USING 

The ZBasic PRINT USING function has been added for more versatile use 
of the ZBasic high-precision math package. This function was designed 
to be very similar to Basic's syntax while making it even more 
powerful in that ZBasic allows more than one USING clause per PRINT 
statement. Its major limitation as compared to Basic's PRINT USING is 
that it allows only one value per USING and no commas. Also, no 
floating *$' or '%' symbols or trailing signs are allowed in ZBasic. 
ZBasic PRINT USING is approximately 50 times faster than a typical 
Basic PRINT USING statement when using double precision. ZBasic USING 
does not work with integers. To use USING with integers, you must 
first convert them to @Math numbers. 

ZBasic USING Syntax 

PRINT USING sstr;sstr (,)(;) (USING sstr ; sstr) . .etc .etc . . 

More than one USING may appear in the same PRINT statement. Any other 
normal print function may be used in the same statement. (This is 
valid with the @MATH package only) 

Note: X! is SINGLE PRECISION in BASIC but it is a STRING in ZBasic 

Example Basic TO ZBasic Conversions 

Basic ■ 20 PRINT USING" ####.## ####.##" ;XI ;Y ! 

ZBasic — 20 PRINT USING" ####.##" ;X! ; " ####.##";YI 

Basic 30 PRINT USING" ####.##" ;X!/100 

ZBasic — 30 <§Z !=X!/"100" : PRINT USING" ####.##";Z! 

3asic 30 PRINT USING"YOUR TAX IS ####.##" ;X! 

ZBasic — 30 PRINT USING"YOUR TAX IS ####.##" ;X! 

Basic 40 PRINT USING" ###,###.###,###" ;X! 

ZBasic — 40 PRINT USING" ######.######" ;X! < — — No commas 

Basic — 50 PRINTX,:PRINT USING" ###.##";X! 
ZBasic — 50 PRINTX, USING" ###.##";X! 

Basic 60 PRINTX, :PRINTUSING" ##.##" ;X1 ,: PRINTZ ,A$ 

ZBasic — 60 PRINTX, USING" ##.##" ;X! ,Z ,A$ 

Basic 70 U$="###.##":PRINT USING U$;X! 

ZBasic — 70 U$="### .##": PRINT USING U$;X! 

Basic 80 U$=" ##.## ##.##": PRINT USING U$;X!;Y! 

ZBasic — 80 U$=" ##.##":PRINT USINGU$ ;X! ;USINGU$ ;Y! 
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RELOCATING ZBASIC PROGRAMS 

7Basic allows you to relocate a program to any part of memory you 
choose Relocation is important since the code created by ZBasic is 
?r°r machtne "language. Many times authors want the r Programs tc .run 
on a 16K tape TRS-80, but create the program on a 48K disk system. 
Ssing the relocation ability of ZBasic, you may save the program to 
run in that area of memory. 

We'll give you a few examples to show you how simple program 
relocation is with ZBasic. 

Relocating a program will require some thinking on the part of the 
programme?. For one, you will need to watch the «« e ii5u^a tS 
nbiect code and the variables after compiling. With these figures to 
Sork wit" you can calculate the position in memory for relocating the 
object code and the variables. 

It is important for you to understand that the object code and the 
variables occupy different areas in memory. 

For those unfamiliar with the term -object code," it is wh at we call 
tne Basic program after it is compiled. The actual Basic Program is 
called the "source code" since it is the source of the object code, 

variables as referred to above, are the area in memory where ZBasic 
Itores ?he values for the variables of the object code. For instance, 
if the string A$ had the value of "HELLO," these characters would be 
stored in the 9 location for the variable A$ in the variables area. The 
same goes for all the other variables. 

The more variables your program uses, the more memory the variables 
area will take up. 

After ZBasic compiles a program for you, it gives you some very 
important information for relocation. 

For example: 

Compiled by ZBasic 

SIMUTEK INC. TUCSON, AZ 

(C) 1982 Andy Gariepy 

PASS 1, PASS 2, PASS 3 . . 

Compiled size Basic size Variable size 

06500 , 04000 12500 

(R)un (B)asic (S)ave : 




(12500 in the example above) 
in most instances, the "Compiled size" will be larger than the "Basic 

ZBasic 29 



size" since ZBasic immediately adds a 1900 byte subroutine package to 
the object code. 

The way the object code and variables are situated in memory is shown 
in the following memory map. 



Variables start here > 

down 



Top of memory 
Variable 



< Top f variable RAM 



Free space 



Object code 
area 



Object code starts here > 

up 



< — Base address of object 



To 



better 



explain the meanings above, let us show you the 
configuration message that ZBasic displays upon entering the program. 
(48K version) 



******************************* 

* ZBASIC BASIC COMPILER * 

* Read manual before changing * 

* any of the parameters!! * 

* Copyright 1982 SIMUTEK INC. * 
******************************* 

Memory size limit 40000 or less 
Change parameters (Y/N)? Y 
Max string array len 00032 <ENTER> 
Max regular string len 00255 <ENTER> 
Top of Variable RAM 65535 <ENTER> 
Base address of object 46038 <ENTER> 
(W)arm or (C)old start Cold <ENTER> 



EXPLANATI 
BELOW 



N S 



< — What to set memory size to 

< We typed ' Y'es 

< — Maximum string array length 
< — Maximum regular string length 
< — Address variables start at 
< — Address object code starts at 
< — See CHAIN 



The variables start at address 65536 (48K shown above) and go down 
through memory. The object code above starts at 46038 and goes up 
through memory. If ever the two should meet, you will encounter an 
error in ZBasic called "VAR/CODE CONFLICT ERROR." This means that the 
variables going down through memory and the object code going up 
through memory have overlapped. 

You can see that this would cause some problems in program execution, 
that is, if the program would run at all! 
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ZBflSIC MEMORY MAP 



TOP OF VAR RAM > ==> 



INPUT BUFFER 



G. P. WORK AREA 



VARIABLE SIZE 



FILE #1 
DISK BUFFER 



FILE #1 DCS 



♦VAR/CODE CONFLICT* 
IF THESE OVERLAP- >=> 



FILE #1 
DISK BUFFER 



FILE #1 DC3 



ZBASIC 2. 2 
VARIABLE' s 



ZBASIC 2.2 
PROGRAM SIZE 



i 



AVAILABLE AREA 




MINIMUM VAR. 
SIZE 2SS BYTES 



OPTIONAL DISK 
AREA* s 



* ZBASIC 2. 2 * 
OBJECT CODE 
CREATED FROM 
BASIC PROGRAM 



PROGRAM STRINGS 



<==< ftVAIALBLE AREA 
FOR LARGER PROGRAM 

<==< MACHINE LANGUAGE 
PROGRAM CREATJ 
BY ZBASIC 2.2% 






DATA/ PO I NTERS 



ZBASIC 2-2 
SUBROUTINES 



TOP OF MEMORY SET- > ==> 



* ZBASIC 2. 2 * 
BASIC COMPILER 



ZBASIC 2.2 
WORK AREA 




MINIMUM ZBASIC 
PROGRAM SIZE. 



A/OTE: TO CALL WARM START FROM 

A BASIC USR CALL JUST ADD 
3 TO THE 'BASE ADDRESS OF 
OBJECT ' . 



ACTUAL BASIC 
PROGRAM TEXT 
TO BE COMPILED 



(DOS AREA) 



(BASIC AREA) 



<==< TEMP. VARIABLE 
STORAGE AREA- 



<==< fiPROX 5230H 
<==< ftpROX AA00H 
<==< 4000H 
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Relocation example 

Follow the instructions carefully, and all of your relocation attempts 
will be successful. 

First, let's boot the system and load in ZBasic without changing any 
parameters. Enter BASIC, set memory size, and type in the following 
program: 

10 'This is a test of the relocate feature of ZBasic 

20 DIM A(200) ,A$(300) ,B$(50) 

30 PRINT"Hello, we have successfully relocated!" 

40 PRINT 

50 PRINT 

60 INPUT n Hit enter to discontinue" ;A$ 

70 END 

When you are done, save the Basic program above. Call it "TEST." 

Now compile it. ZBasic will give you the neccessary information for 
relocating the program properly. For this example, program sizes were: 

Compiled by ZBasic 

SIMUTEK INC. TUCSON, AZ 

Pass 1, Pass 2, Pass 3 

Compiled size Basic size Variable size 

02001 00184 12562 

(R)un (B)asic (S)ave 

Don't save the compiled program this time. Instead, go back to Basic. 
Since we would like to relocate the program to run in the lower 16K of 
memory, we first must calculate if it will fit. We add the variable 
size and the compiled size and find out the total amount of memory 
needed is 14563. We'll have a little room to spare. 

Now we must calculate where to put the object code. Since object code 
starts at a specified address and goes up through memory we need to 
find the lowest place in the 16K memory where we can locate it at. 
This is at memory location 17500. For those interested in the lowest 
memory location for use with DOS, it is location 21000. Although this 
address may vary depending on the disk operating system you use, 21000 
is generally considered safe. 

To calculate where the variables should go, we usually look for the 
top of memory in the system. The top of memory in a 16K computer is 
32767. Therefore, we must determine that the variables and object code 
do not overlap. 

First we add 2001 to the address 17500. This gives us 19501. Then we 
subtract 12562 from 32767 to get 20205. This confirms that the object 
code and variables do not overlap. Look at figure below for a better 
description. 

ROM/VIDEO ! — OBJECT CODE ! I VARIABLES — ! 

17500 19501 20205 32767 
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It is imperative that the object code and the variables do not 
overlap. This will cause a definite system crash. 

OK now we have the figures we need to relocate. Make sure you have 
saved a copy of the Basic program above. Call it "TEST." The next 
thing to do is reload ZBasic. If you have a tape system, turn the 
system off, and reload ZBasic. For disk systems, hit the reset button, 
and then reload ZBasic. 



An 



swer the configuration questions as stated below. 

******************************* 

* ZBASIC BASIC COMPILER * 

* Read manual before changing * ANSWERS 

* any of the parameters!! * BELOW 

* Copyright 1982 SIMUTEK INC. * 
******************************* 
Memory size limit 41000 or less 
Change parameters (Y/N)? Y 
Max string array len 00032 <ENTER> 
Max regular string len 00255 <ENTER> 
Top of Variable RAM 65535 32767 
Base address of object 46038 17500 
Maximum input length 00255 <ENTER> 

(W)arm or (C)old start Cold <ENTER> 



Whe 



n ZBasic asks to set parameters again, just press "N." 



Now we go back to Basic, set memory size, and reload the Basic test 
program. When you change the configuration parameters, ZBasic will 
allow you two options after compiling. Either (S)ave the program or 
return to (B)asic. You cannot run the program when you set the 
parameters to other than the default settings. 

We will now compile the program by pressing the "ZXC" keys. Answer 
with (S)ave to save your program to tape or disk. 

The saved program is now relocated. It will reside in the areas you 

wanted! You will no longer be able to compile programs after 

relocating. You must reload ZBasic to continue. 

Note: Remember that ZBasic destroys itself after you save a relocated 
program. You'll have to reload ZBasic if you wish to use it again. 
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Review of ZBasic Relocation Procedures 

1 Write your program in BASIC. DEBUG it under the default modes when 
possible so that you can use ^ the interactive part of the compiler. 
This will save a great deal of time. 

2. Compile the program and write down the object code size and 
variable size 

3. Calculate where you wish to put the program. Lowest addresses for 
object: 17500 tape, 21000 disk. 

4 Be sure sure variables and object code do not overlap. To do this, 
add the "Compiled size" to the address you chose for the "Base address 
of object." Subtract the "Variable size" from the address you chose 
for "Top of variable RAM." If this number, variables minus the "Top of 
Variable RAM," is less then the number you obtained for base address 
PLUS object code size, then the program will relocate improperly. 

5. Save the Basic program. 

6. Reload ZBasic and set the default parameters. The object address 
should be set to the address where your program is to start and the 
variable address should be set to where your program is to end. 

7. Go into Basic. 

8. Set memory size. 

9. Load the Basic program. 

10. Compile and save. 
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CHAINING ZBASIC PROGRAMS 

ZBasio has a powerful chaining facility which allows you to go from 
one program to another and retain variable values! 



Chaining is very important because it gives you the power to create 
oroaram! larger than the available memory in the computer. For 
instance if you have an array that takes up 30K of memory, this 
ieavts you with only 8K or so for your main program. Unfortunately, in 
regular Basic, you would have to save the array (along with any other 
Pertinent information) to disk, load the new program and the array 
back in from disk, all of which is very time consuming and 



back 
inefficient 



ZBasic gives you a better way. Chaining J"™* /"£"• ™^ s t ££ a £ 
while allowing different programs to be loaded; variables can thus De 
shared by each overlay program! This saves a great deal of time in 
program execution, especially in business programs "^typically 
Require more memory and larger data retirements. Since most TRS-80 s 
hive only 48K of user RAM, chaining makes this memory see, arg er by 
giving you the ability to overlay programs and still retain the 
variables; chaining allows you to emulate systems with 128K or more- 
Example ZBasic Chaining 

We're going to take you through an actual chaining sequence to apaint 
you wito the ZBasic chaining commands. Be sure to follow each step 
carefully; missing a step will cause the chaining feature to fail. 

The next few pages will give you a step-by-step example ° f gaining 
three programs in ZBasic. Remember, even though we are only 
demonstrating the chaining of 3 programs, many more may be chained. 
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Go into Disk Basic and type in the following programs and save them to 
the disk as files "PROGl," "PR0G2," "PR0G3." Notice that the programs 
are almost the same so you won't need to type all three completely. 
Just type in "PROGl," save it, then edit it to be the same as "PR0G2," 
save it, then do the same for "PR0G3." Be careful to type the programs 
in exactly as shown. 



10 
20 
30 



This is "PROGl" 

, * ****** ************************* ************ 
i****** P R G R A M — N E ********* 
i******************************************** 

35 DIM A(5) ,A$ (5) _ ^ 

50 IFZ<>999THENCLEAR:Z=999: 'IF PROGRAM IS NEW THEN CLEAR VARIABLES 

90 CLS:PRINT"This is Program #1" 

100 PRINT"The test variables contain this data:" 

110 PRINT 

120 PRINT"A="A,"B="B,"C="C 

130 PRINT n A(l)="A(l) , n A$ (l)= n A$ (1) 

135 INPUT»Change variables? Y/N" ; A$ : IFA$="Y"ORA$="y"THENGOSUB1000 :GOTO90 

140 PRINT: INPUT"Which program do you want to run: 2 or 3";PR 

150 IFPR<2ORPR>3THEN90 

160 IFPR=lTHENRUN"PRG2/CMD n 

170 RUN"PRG3/CMD" 

1000 INPUT"A,B,C";A,B,C 

1010 INPUT"A(1)=";A(1) 

1020 INPUT"A$(1)=";A$(1) 

1030 RETURN 

This is "PR0G2" 



i******************************************** 
i****** P R G R A M — T W ********* 
i******************************************** 



10 

20 

30 

90 CLS:PRINT"This is Program #2" 

100 PRINT"The test variables contain this data:" 

110 PRINT 

120 PRINT n A= ,, A, n B="B, ,, C= ,, C 

130 PRINT n A(l)="A(l) ,"A$ (1)="A$ (1) 

135 INPUT"Change variables? Y/N" ; A$ : IFA$="Y"ORA$="y"THENGOSUB1000 :GOTO90 

140 PRINT: INPUT"Which program do you want to run: 1 or 3"; PR 

150 IFPR<1ORPR>3ORPR=2THEN90 

160 IFPR=1THENRUN"PRG1/CMD" 

170 RUN n PRG3/CMD n 

1000 INPUT"A,B,C";A,B,C 

1010 INPUT"A(1)=";A(1) 

1020 INPUT"A$(1)=";A$(1) 

1030 RETURN 
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This is "PR0G3" 

10 . , ******************************************** 

2g t ****** p R G R A M — THREE ********* 

30 i******************************************** 

90 CLS:PRINT"This is Program #3" 

100 PRINT"The test variables contain this data:" 

110 PRINT 

120 PRINT"A= B A,"B="B,"C= n C 

130 PRINT"A(l)= n A(l) , n A$ (1)="A$ (1) 

135 INPUT-Change variables? Y/N" ;A$ :IFA$="Y"ORA$="y"THENGOSUB1000 :GOTO90 

140 PRINT: INPUT"Which program do you want to run: 1 or 2";PR 

150 IFPR<1ORPR>2THEN90 

160 IFPR=1THENRUN"PRG1/CMD" 

170 RUN"PRG2/CMD" 

1000 INPUT"A,B,C";A,B,C 

1010 INPUT"A(1)=";A(1) 

1020 INPUT"A$ (1)=";A$(1) 

1030 RETURN 



Ok, Now that all the programs have been typed in as above, and SAVED, 
go back to DOS READY, (CMD"S") . Load in ZBasic. 

Answer the "Change configuration questions" as follows: 
******************************* 

* ZBasic 2.2 Basic COMPILER * 

* Read manual before changing * 

* any of the parameters!! * 

* Copyright 1982 SIMUTEK INC. * 
******************************* 
Memory size limit 41000 or less 
Change parameters (Y/N) ? 
Max string array len 00032 
Max regular string len 00255 
Top of variable RAM 65535 
Base address of object 47040* 
Maximum input length 00255 
(W)arm or (C)old start Cold 



ANSWER AS 
BELOW 

Y 

<ENTER> 
<ENTER> 
<ENTER> 
<ENTER> 
<ENTER> 
W 



(These addresses 
may differ) 



The only question we answer beside "Y" 
for WARM START. This means we want 
without destroying the values in the var 
all the variables when the program starts 
but uses whatever values were left in th 
so the whole idea is to retain the values 
programs loaded from disk can use th 
start, we make sure the program will sta 
intact. Note in line 50 of program one 
to clear variables manually. Since the va 
when the program is first run, we check 
has a value of 999. If it does, we ^ 
otherwise, they are cleared out just as i 



for Change parameters is "W" 
the programs to start running 
iables. Cold start zeroes out 
. Warm start runs the program 
e variables. We are chaining, 

in the variables so that the 
em. By answering "W" for Warm 
rt running with the variables 
that we use the CLEAR command 
riables need to be zeroed out 
the variable "Z" to see if it 

leave the variables alone; 
n a Cold start. 
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Now type in Basic and set memory size. (41000 for 48K, 29000 for 32K) 
After you are back in Basic, load "PR0G1." 

When "PROGl" is back in memory, we will compile -it by holding in the 
"ZXC" keys together. "PROGl" is the only program we compile in 
chaining without holding in the shift key. All programs after the 
first one require that the shift key be held in when the "ZXC" keys 
are pressed. 

Now SAVE "PROGl" as "PRG1." Answer the "Create it" question with "Y." 
Answer the "Save again" question with "N." 

After you have saved the compiled "PROGl," load "PR0G2." Chaining 

programs to the first is accomplished by compiling with the shift key 

held in. Normally, when we compile, we press "ZXC" together. This time 

we will do it a little differently. Hit the shift key and "Z," "X," 
and "C" keys simultaneously. 

The shift key must be held in or the variable pointers from the 
previous compilation of PROGl will be lost. The idea is to retain the 
old variable values and make them common to all. If you accidentally 
compile without holding in the shift key, the chaining feature will 
have been lost. You will need to re-compile and re-chain programs to 
insure success. 

After compiling, answer "S" to save the compiled program under the 
filespec "PRG2." ZBasic will append it with "/CMD" automatically. 

Follow exactly the same procedure for "PR0G3." Save the compiled 
program as "PRG3." 

Now we are ready to test our chained programs. 

Go back to DOS READY (CMD"S") 

Now type in "PRG1 <ENTER>." 

Program one will ask if you want to change variable values. Try giving 
them different values. Now transfer control to one of the other 
programs. Notice the variables still retain the values from the old 
program? Each program will allow changing the values. And you will see 
for yourself that the variables retain values between programs! 

Keep in mind that chaining may be done from as many programs as you 
like. Just be careful to keep the size of the programs about the same 
and make sure variables and program don't overlap in memory. 

Note: Remember that ZBasic is destroyed any time you use the 
relocation feature. To chain relocated programs, you'll have to reload 
ZBasic for every program you wish to chain. 
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Additional Chaining information 

1. If you make changes in any of the chained programs, they all must 
be re-compiled and re-chained to assure you of stable variable 
structure. Failure to re-compile and re-chain all the programs may 
cause faulty variables and possible system crashes. 

2. When using DATA statements in chained programs, be sure to use the 
RESTORE command when entering programs so ZBasic can keep its pointers 
correct. Failure to do so will cause faulty DATA reads. 

3. Caution should be taken when exiting from one program to another 
when data files are left OPEN. Running a program does not close all 
open files as in Basic. In fact, different programs can access open 
data files opened from another program! This can save significant disk 
access time but ZBasic will not warn you when files are already open 
if you attempt to open them again! We suggest users have some error 
checking in their programs* 

4. Use caution when chaining relocated programs. Variable addresses 
must be the same with all programs. Allowing object code and variable 
code to overlap will cause a system crash or faulty variable values. 

5. If you compile without the shift key, variables are lost from 
previously compiled programs. It will be neccessary to go back to the 
beginning and re-compile and re-chain the programs. 

6. Do not re-DIM in consecutive programs. ZBasic already knows that 
the array variables exist from the DIM in the first program. Arrays 
may be DIMensioned one time only when the chain feature is being used. 

7. If errors occur when chaining programs, it is best to fix the error 
in the program and then re-compile and re-chain all the programs 
together. 

8. When writing programs to be chained, compile and check each program 
thoroughly for errors before chaining. This will save you much time in 
program creation. 
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CONVERTING BASIC TO ZBASIC 

Converting Basic programs to run in ZBasic is usually a simple matter. 
The ZBasic compiler allows trial compilations in seconds to find 
program problems quickly and efficiently. The main difference between 
ZBasic and Basic programs is the floating point math package and disk 
I/O. The way string functions are written is also important. 

The major difference between Basic and ZBasic is that ZBasic uses 
integer as a default math package, and Basic uses single precision as 
a default math package. Single precision would lead to very slow 
compiled program execution and a very large compiled program size. 
With these facts in mind, let's go through a program example showing 
both the original Basic program and the resulting ZBasic program. 

Definitions 

Integer: Any number which does not require a decimal point and 
does not exceed the range of -32768 to 32767. 

Floating point: Any number which requires a decimal point or 
which may exceed the range of -32768 to 32767. 

Complex string: A string which contains one of the following 
functions (MID$ ,RIGHT$, LEFT$ ,STRING$ ,TIME$ ,+) 

Simple string: A string which may be operated on directly by 
ZBasic, such as A$ , "HELLO" , INKEY$ ,CHR$ (7) etc. 

@Math: This is a name for the floating point package used in 
ZBasic. It allows addition, subtraction, multiplication, and 
division with up to 32 digits of accuracy. It uses a BCD internal 
format for significantly reduced rounding errors. 

Largest @Math number (+/-9999999999999999. 9999999999999999) 
Smallest @Math number (+/- .0000000000000001) 
Zero is stored as "0.00" or "-0.00" 
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Example ZBasic Conversions 

The following are hypothetical lines of Basic code and their conversions 
into ZBasic compatible code. 

Basic: 10 INPUT X : DIM A(X) < — ZBasic cannot DIM by variable 
ZBasic: 10 X=100 : DIM A(100) < — Simply use the largest possible amount 

Note: All arrays must be dimensioned. See Chaining section for 
an exception. 

Basic: 20 IF LEFT$ (A$ ,1) ="X" THEN 100 < Complex string illegal 

ZBasic: 20 ZZ$=LEFT$ (A$ ,1) : IF ZZ$="X" THEN 100 < Same as above 

Note: Complex strings only allowed in assignment statements 
and they can never be nested. 

Basic: 25 X$=MID$ (RIGHT$ (A$ ,5) ,2, 2) < No nested string functions 

ZBasic: 25 ZZ$=RIGHT$ (A$ ,5) :X$=MID$ (ZZ$ ,2,2) < Split functions apart 

Basic: 30 X=(N/64)*3 < Works when calculated in floating point 

ZBasic: 30 X=(N*3)/64 < Works in integer AND floating point 

Note: Check all division for accuracy problems. 

Basic: 35 IF 1/2 THEN 100 < Always TRUE in Basic (.5) 

ZBasic: 35 IF 1/2 THEN 100 < Always FALSE in ZBasic (0) 

Basic: 40 INPUT A$,B$ < ZBasic allows only one string per INPUT 

ZBasic: 40 INPUT A$ : INPUT B$ < Split strings into two INPUTS 

Note: ZBasic's INPUT reads strings just as Basic's LINEINPUT 
does 

Basic: 75 X$= " HELLO" : XI =" .1" < X$ and X! are identical in ZBasic 

ZBasic: 75 X1$="HELL0" :X2l=" .1" < Rename the variables to fix 

, Basic: 70 IF INT(X/2)-X/2 THEN 100 < Both expr's are ZBasic integers 

ZBasic: 70 IF X FN 2 THEN 100 < Identical ZBasic function 

Basic: 80 X=NOT Z 
ZBasic: 80 X=NOT(Z) < — ZBasic NOT requires parentheses 

Basic: 90 DATA FRED, HERMAN < ZBasic string data requires quotes 

ZBasic: 90 DATA "FRED" ," HERMAN" < Add quotes to fix 
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Basic: 100 FOR I=0TO1000 :NEXT < Basic delay. ZBasic much too far 

ZBasic: 100 DELETE 2000 < ZBasic 2 second delay 

Basic- 120 X=5:F0R 1=1 TO 100 STEP X < Step variable not allowed 

ZBasic": 120 FORI=1TO100 STEP 5 < — Make step a number 

Basic: 140 INPUT" STRING" ;A$ < ZBasic doesn't print •?' 

ZBasic: 140 INPUT"STRING ? ";A$ 

Basic: 150 PRINT@512, "";: INPUT X < — Works in ZBasic 

ZBasic: 150 INPUT@512,X < Better ZBasic solution 

Basic: 160 X=&H1234 < Basic's hex conversion 

ZBasic: 160 X=%1234 < ZBasic* s hex conversion 

Basic: 180 AD=VARPTR (X$) < ■ Points to variable name 

ZBasic: 180 AD=VARPTR (X$) < Points to variable value 

Basic: 190 X=INSTR (X$ , Y$) m ... ^ naes ^ 

ZBasic: 190 X=INSTR (1 ,X$ ,Y$) < Leading expr required in ZBasic 



No 



te: INSTR is an expression, not a string function 
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§Math Conversion 

Basic: 191 PRINT USING"### .## ###.##" ;A! ,B! < Change USING format to 

ZBasic: 191 PRINT USING B ###.## B ; A! f USING n ###. ##" ;B$ <— convert 



Basic: 192 PRINT USING"### , ###.###,###" ;Al <— Works in Basic 
ZBasic: 192 PRINT USING"###### .######" ;Al < — No commas allowed 

Basic: 193 X=X+.l < Floating point operations must use @Math 

ZBasic: 193 @Xi=X!+" .1" <— New ZBasic format 

Note: All floating point math must be converted to @Math 

Basic: 194 X!=ABS(Xi) < Floating point ABS not supported 

ZBasic: 194 @X!=X!+"0" :X$=RIGHT$ (XI , LEN (X$) -1) ) < Identical in ZBasic 

Basic: 195 X!=INT(X!) < Floating point INT not supported 

ZBasic: 195 @Xl=Xl+"0" :X!=LEFT$ (X! , INSTR (1 , X! ," .") -1) <— Same in ZBasic 

or 
ZBasic: 195 X=VAL(XI) < Works if @Math number is -32768 to 32767 

Basic: 196 X!= (100+Y! ) *4 < Change to @Math for ZBasic 

ZBasic: 196 @X! = i, 100 ,, +Y!* n 4 ,, <- ZBasic's format 

Basic: 197 X!=1000+Y! *4 < Change to @Math for ZBasic 

ZBasic: 197 @X!= S Y!* ,, 4 I, + If 1000" < — ZBasic's format 



No 



te: ZBasic executes @Math in the order it is presented 



Basic: 198 IF XKY! THEN 100 < In ZBasic, subtract the numbers 

ZBasic: 198 @Z !=X!-Y! : IF ASC ( Z ! ) =ASC ("-") THEN 100 <— and check for a 

negative number 



ZBasic 42 



Disk I/O Conversions 

ZBasic disk I/O may use up to 8 open files at one time. These files 
may be any combination of random or sequential disk files the must be 
explicitly numbered 1-8. Random files are limited to a record length 
of 256 and must use both RSET and LSET functions to take and put 
strings into a random access fielded variable. Use caution when using 
a DOS other than TRSDOS to avoid disk I/O related problems. (DOSPLUS, 
MULTIDOS, NEWDOS PLUS and NEWDOS 80 Ver. 1.0 all appear to work 
correctly. NEWDOS 80 Ver. 2.0 will not work properly). 



Basic: 200 OPEN n R" ,X, "FILENAME" < ZBasic requires a number 

ZBasic: 200 OPEN"R" , 1 /'FILENAME" < Substitute a number for X 

Basic: 210 OPEN"R" , 1 , "FILENAME" < Opens a new file in Basic 

ZBasic: 210 OPEN"0" , 1 /"FILENAME" < Opens a new file in ZBasic 

Basic: 220 IF E0F(1)=-1 THEN 1000 < ZBasic returns the error # 

ZBasic: 220 IF E0F(1) THEN 1000 < not just a -1 

Basic: 230 IF EOF(X) THEN 1000 < ZBasic requires a number 

ZBasic: 230 IF E0F(1) THEN 1000 < Change X to 1 

Basic: 240 FIELD #1, X AS A$ < ZBasic requires a number 

ZBasic: 240 FIELD #1, 8 AS A$ < Change X to 8 

Basic: 250 GET X,Y < ZBasic requires a number 

ZBasic: 250 GET 1,Y < Change X to 1 

Note: The same applies to the PUT statement 

Basic: 260 CLOSE < ZBasic requires file numbers 

ZBasic: 260 CLOSE l,2 f 3 

Note: Variables can't be used for file numbers in ZBasic 

Basic: 270 FIELD#1,25 AS A$ (X) <— Arrays not allowed as FIELDed var's 
ZBasic: 270 FIELD#1,25 AS A$ < Substitute normal variable 
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Basic: 280 FIELD#1 , 2ASA$ :X$=A$ < ZBasic requires RSET to move 

ZBasic: 280 FIELD#1,2ASA$ :RSETX$=A$ < FIELDed var's to normal var's 

Basic: 290 X$=MKI$(999) < Specify @Math for ZBasic 

ZBasic: 290 @X$=MKI$ (999) < Use @ to specify @Math 

Note: Same for MKS$ and MKD$ 

Basic: 310 X=LOC (1) : Y=LOF (1) < Use caution. Some DOSes 

ZBasic: 320 X=LOC (1) : Y=LOF (1) < handle files differently 

Basic: 340 OPEN"R" , 9 , "XXX" 
ZBasic: 340 OPE^R" , 8 , "XXX" < ZBasic allows only 8 files 
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Additional Random I/O Notes 

1. To detect disk errors, use the ZBasic EOF function. 

2. The FIELD statement must appear before any fielded variables are used. 

i when usinq the MKI$ ,MKS$ , MKD$ the result must go directly to the 
F^ELDed variable and must not be moved using normal string functions. 

4. The RSET statement must be used to take a FIELDed string fromthe 
random buffer and put into a normal string before using the string in 
any ZBasic string functions. 

5. The LSET function must be used when putting strings into the random 
buffer to avoid overflow into other fields and leaving a terminator in 
the buffer. 

6. The MKI$,MKS$,MKD$,CVS, and CVD functions are all ^Math functions and 
as such must be used in an @Math statement line. (Eg; <§X$=MKI$ (A+Z) or 
@X$=CVD(A$) . 
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ZBASIC ERROR STATEMENTS 

The next few pages describe all of the ZBasic error messages. This 
section also contains a useful list of situations that can cause 
ZBasic programs to crash. 

Syntax Error in line fnnnnn 

This is a general-purpose error that occurs whenever ZBasic 
encounters an unknown (misspelled) or out of order statement in 
the Basic program. The line number is always the line in which 
the SYNTAX error occured. Another cause may be a control 
character inserted in the Basic line. 

Line # Error in line Innnnn 

This error says there is a GOTO/GOSUB/THEN/ELSE/ON to nnnnn where 
nnnnn does not exist in the program. Line number is not 
allowed. 

For/Next Error in line #nnnnn 

This Error may be caused by several conditions. If nnnnn = 65535, 
there are more FORs than there are NEXTs in the program. If nnnnn 
is less than 65535, the problem may be a bad STEP value (STEP 
must be a number) . Other problems include bad loop variable types 
(array, string, etc.) and extra NEXTs with no matching FORs. 

Illegal-Stmt Error in line fnnnnn 

This error means ZBasic has encountered a Basic instruction which 
is not supported or available in that particular version of 
ZBasic. 

Variable Error in line Innnnn 

This error means Z3asic encountered an array variable which has 
not yet been dimensioned by the program. It can also mean a 
DIMension statement has an illegal value or the wrong number of 
parameters in the array parentheses. 

Var Overflow Error in line Innnnn 

This error means ZBasic has run out of room to store variable 
names while compiling. The only way to correct this error is to 
limit memory to a smaller value when entering Basic or remove 
extra variable names from the program. 
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Out of Memory Error in line fnnnnn 

This error says that ZBasic does not have enough room to compile 
the program. The program must be shortened or segmented into more 
parts to allow compiling. 

Non-fatal error codes 

Below are two error codes that are mere warnings to the programmer. 
They point to possible problem spots, but in some cases these codes 
are actually supposed to appear. 

* VAR/CODE CONFLICT * 

This is a non-fatal Error that warns a programmer that the 
program has been compiled correctly; but, when run, the variables 
will over-write the program and will crash. To correct this 
error, you must shrink the program or use the relocation options 
to move the variables and code farther apart until this message 
is not displayed. See the memory map and the relocation section 
to better understand the effect of this error message. 

* Extra RETURN * 

This is a message you may receive after running a ZBasic created 
program while in the interactive compile mode. This message is to 
warn that ZBasic encountered a RETURN which was not matched with 
a GOSUB. This happens when ZBasic fell through all the program 
lines and hit the automatic return at the end of a created 
machine language program. This could cause a crash in the created 
program unless it is going to be used as a machine language 
program (USR routine, etc.). 

Probable causes of crashes 

Below is a list of situations that can cause ZBasic programs to crash. 
Keep this list handy when debugging your ZBasic programs. 

1. 'END 1 Statement encountered when executing from Basic 

2. 'STOP* Statement encountered when executing from DOS 
3! 'RETURN 1 Statement encountered when executing from DOS 

4. Machine language routine crashed 

5. Infinite loop in program. (Example 10 GOTO 10) 

6. High memory driver overlaps ZBasic's RAM area 

7. Relocated to area of RAM already being used 

8. String variable length set has been exceeded 

9. 'POKE 1 into wrong location 

10. ' LPRINT' when the line printer is OFF or BUSY 

11. 'FOR/NEXT 1 loop to 32767 or to 32767-step 

12. Caught in 'IF 1 type loop (100 IF X/2=0 THEN 100) 

13. No checking for DOS errors (100 IF E0F(1) THEN ...) 

14. Warm start with DATA and no RESTORE statement. 
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Warm start cautions 

A warm start address allows entry into a ZBasic created program 
without clearing variables and without resetting the DATA pointer to 
the start of the DATA table created by ZBasic. If DATA/READ statements 
are used, a RESTORE statement must be used before any data may be 
read. Variables may contain anything on entry to a warm started 
program but if they need to be cleared, a CLEAR must appear in the 
program to clear all the variables to null strings or values. See 
the chaining section of the manual for further reference. 
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ZBASIC INDEX 



@Math 5,28,39,42 

• •••••••••••• 6 

[ 6 

6 



ABS 

AND 

ASC 

ATN ° 

AUTO 6 

Address of a graphics point 8 

Argument passing function 13 

Base address of object . 30,32,49 

Block move statement 12 

Breaking ZBasic programs 22 

5 

6 

\ 7 

" 7 



Byte 

CDBL 

CHR$ 

CINT 

CLEAR 7,36,48 

CLOAD 7 

7 

8 

8 

8 



CLOSE 

CLS 

CMD 

CONT ' 

CONVERT utility 2 

COS 8 ' 53 

CPDR function 6 

CSAVE 8 

CSNG 8 

CVD 9 

CVI 9 

CVS 9 

Calling machine language • 8,23 

Cassette I/O 7 

Cassette loading 2 

Causes of crashes 47 

Chaining example 34 

Chaining programs 34 

Changing parameters 3,30,32,36 

Clearing the screen 8 

Clearing variables 7 

Closing disk files 7 

Cold start . 36 

Compilation options 3 

Compilation prompt 3 

Compile keys 4,32,37 

Compiled size 29,31 

Complex string 5,39 

Convert from 

unFIELDed to FIELDed 17 

Convert unFIELDed to FIELDed .... 21 

Converting Basic to ZBasic 39 

Converting fielded strings 9 



Creating a number from a string . 
Creating a string from a number . *./. 

Current compilation address 17 

Current record number function .. 16 

Cursor position 19 

DATA 9,38,47,48 

DEFB 9 

DEFDBL 10 

DEFFN 9 

DEFINT 10 

DEFN 10 

DEFSNG I 

DEFSTR H 

DEFU • 10 

DEFW 10 

DELETE I 

DIM 11,38,46 

DOS error function 12 

Debugger 21 

Defining as integers 10 

Defining as strings 11 

Definitions 5,39 

Delay statement H 

Delete disk file 15 

Disk I/O conversions 43 

Disk versions 

Display error message -^ 

EDIT 11 

ELSE H/46 

END • 11,47 

EOF • 12,45 

ERL I 2 

ERR 12 

ERROR I 2 

EXP • I 2 

End of loop 18 

Erasing variables 7 

Error statements 46 

Expr 5 

Extra return error 47 

FIELD 13,45 

FIX • i3 

FN I 3 

FOR ! 3 

FOR/NEXT error 46 

FOR/NEXT loop 47 

FRE I 3 

File number 5 

File transfer utility 1 

Floating point math 5,28,42 
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Fnum 5 

GET 14 

G-OSUB 14,46 

GOTO 14,47 

Generate a random number 21 

Hex number format 10 

Hex numbers • 5 

Hex word number format . .... 10 

High precision math 5,28,42 

IF 14 

INKEY$ 14 

INP 14 

INPUT *.- 14 

INPUT @ . 15 

INSTR 15 

INT 15 

Illegal statement error .... 46 

Input keyboard data • ••••......... 14 

Inserting machine language ... 17,25 

Integer •••..••••. 5,39 

Integer number format 9,10 

Invert statement 13 

Jump to Basic 22 

Jumping to the debugger 21 

KILL 15 

Keyboard input function . .. . 14 

Keywords 6 

1R statement 12 

LDIR statement 12 

LEFT$ 15 

LEN 15 

Lul ...... .............. ......... iJ 

LINEINPUT 15 

LIST 16 

LLIST 16 

LOAD 16 

LOC 16 

LOF 16 

LOG 16 

LPRINT 16,47 

LSET 16,43,45 

Last record function 16 

Line number error • 46 

Load random record 14 

Load string ' 

into a FIELDed buffer 16 

Loading ZBasic 1 

Loading data from tape 7 

Loading machine language files ..16 
Loop statement 13 



Lowest memory location 31 

MEM 17 

MERGE 17,25-27 

MERGE examples 25-27 

MID$ 17 

MKD$ 17,45 

MKI$ 17,45 

MKS$ 18,45 

Machine language call 8 

Making a number from a string ... 24 
Making a string from a number ... 22 

Memory map 30 

Memory move statement 12 

Memory search 6-7 

Memory size 37 

Mod I loading 1 

Mod III loading 1 

Music generation .•••..••. 6,11 

NAME 18 

NEW 18 

NEWDOS 80 43 

NEXT 18 

NOT 18 

Non-fatal errors 47 

Numb • 5 

Number of records function ....... 16 

ON 18,46 

OPEN 18,38 

OR 18 

OUT 19 

Object code 29-32,38 

Object code area 48 

Object code size 33 

Open a disk file 18 

Out of memory error 47 

PEEK 19 

PEEKW ..* 19 

POINT 19 

POKE 19,47 

POKEW 19 

POS 19 

PRINT 20 

PRINT # 20 

PRINT USING 28 

PUT 10 

Parameters 3,30,32,36 

Poke word 19 

Present record number function .. 16 

Print error message 12 

RANDOM 19 
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READ 20 

REM 20 

RESET 20 

RESTORE 20,38,47,48 

RESUME 20 

RETURN 21 

RIGHT$ 21 

RND 21 

RSET 21,43,45 

RUN 21 

Random number 21 

Read from a DATA statement 20 

Read keyboard data 14 

Read memory location 19 

Read random record 14 

Read word 19 

Reading data from tape 7 

Relocating ZBasic programs 29 

Relocation example 31 

Relocation review 33 

Remainder function 13 

Remark statement 20 

Reset DATA pointer 20 

Run machine language file 21 

Running ZBasic 2 

SAVE 21 

SET 22 

SGN 22 

SIN 22 

SQR 22 

STEP 22 

STOP 22,47 

STR$ 22 

STRING$ 22 

SYSTEM 22 

Saving compiled code 32 

Saving data to tape 8 

Search memory function 6-7 

Set graphics dot on 22 

Shift key 37 

Simple string 5,39 

Sound generation 6,11 

Source code 29 

Sstr 5 

String length function 15 

String search function 15 

Strings 3 

Syntax error 46 

TAB 23 

TAN 23 



THEN 46 

TIME$ ?3 

TROFF 

TRON 23,* d 

Tape files 2 

Tape versions 2 

Time delay statement 11 

Tone generation 6,11 

Top of variable RAM 30,33 

Trace feature off 23 

Trapping the break key 22 

Turn graphics dot on 22 

Turn graphics dot off 20 

USING 23,28 

USR 23,47 

Using TRON with MERGE 25 

VAL 24 

VAR/CODE conflict 30,47 

VARPTR 24 

Variable area 30-31,48 

Variable error 46 

Variable overflow error 46 

Variable pointer function 24 

Variable size 29 

Variables 5 

Warm start 36 

Warm start cautions 48 

Write random record 

Writing data to tape o 

XOR statement 13 

ZBasic diskette 1 

ZBasic files 1 
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100 
150 
200 
300 
400 
500 
600 
700 
800 
900 

63000 
63010 
63020 
63030 
63040 
63050 
63060 
63070 
63080 
63090 
63100 
63110 
63120 
63130 
63140 
63150 
63160 
63170 
63180 






===== ZBASIC 2.2 SORT ==========«»==: 

CLEAR 5000 

DIMS* < 100) **** STRING ARRAY TO BE SORTED ***** 

N«96' ********* NUMBER OF ELEMENTS TO SORT *** 

FOR I » 1 TO N i FOR J» 1 TO 8 

S* ( I ) =»S* < I ) +CHR*<RND <26> +64) 

NEXTJ, I 

PRINT"START SORT: "; : GOSUB63000 : PRINT"END SORT" 

FORI-1TON : PRINT S*<I), : NEXT 



STOP s '*** END IF FROM DOS *** 

****** ACTUAL SORT SUBROUTINE ****** 

******** SORTS ARRAY S$(X) ********* 

***** SORTS N ELLEMENTS IN S*<) **** 

E=l 

E=»E+E:IFE<N THEN 63040 

E»INT(<E-l)/2) 

IF E=»0 THEN RETURN 

IT=N-E 

FOR 1= 1 TO IT 

J- 1 

L=J+E 

IF S$(L> <=S*<J) 

XX*=S*<J) 

S*<J)=S*<L> 

S*(L)=XX$ 

j-sj-E 

IF J>0 THEN 63100 

NEXTI 

GOTO63050 



THEN 63170 



110 A#="l. 00001" :B#="1. 00002" :GOSUB 120: STOP 

120 **************** £MATH COMPARE VALUES ********************* 

130 @CP#=A#-B#:IF ASC(CP#)=45 THEN PRINT"A# <=B#" 

140 IF ASC<CP#)<>45 THEN IF CP#<>" 0-00" PRINT"A#> B#" 

150 C«CP#=B#-A#:IF ASC<CP#)=45 THEN PRINT"A#> =B#" 

160 IF ASC(CP#)<>45 THEN IF CP# <> " 0.00" PRINT"A#< B#" 

170 CP#»RIGHT*<CP#, LEN(C°#)-1)' REMOVE SIGN POSITION 

180 IF CP#=»"0.00" THEN PRINT "A# =B#" ELSE PRINT" A# <>B#" 

190 RETURN 

200 ********************** FUNCTIONS ************************** 

210 <aL#=»L#+ n 0":L#=LEFT$<L#, INSTR(1,L#, ". ">-!)* L=INT(L) 

220 @L#=L#+"0":L#=»RIGHT*<L#,LEN(L#)-1)' L=ABS<L) 

230 @L#=L#*L#' i L=LC2 

240 @L#=L#*L#*L#' L=LE3 

NOTE: SEE HOW AT MATH NUMBERS 
ARE COMPARED. 
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Clef 




10 ' 

20 
30 
40 
50 
60 
70 
B0 
90 

100 
110 

120 

130 

135 

140 

160 

170 

130 

190 

200 

210 

220 

230 

240 

250 

260 

270 

271' 

272' 

273' 

274' 

275' 

276' 

277' 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 
420 
430 
440 
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ZBASIC 2.2 SCIENTIFIC SUBROUTINES 

USING THE TRS-80 BASIC ROM ROUTINES. 
WARNING: IF ILLEGAL VALUES ORE SENT TO 
TO THE ROM ROUTINES IT MAY CRASH SO BE 
CAREFULL WHEN USING THESE ROUTINES. 
THESE ROUTINES WILL RETURN THE SINGLE 
PRECISION RESULT. (ABOUT 6 DIGIT PREC. ) 
TO USE, JUST SET THE VALUE OF THE NUMBER 
TO BE USED IN VARIABLE 'XV!' AND CALL 
THE LINE WITH THE FUNCTION REQUIRED. 
UPON RETURN, THE VALUE OF THE NUMBER 
WILL BE CONTAINED IN ©MATH VAR "XV!" 
NOTE- PLEASE USE 9MATH ONLY. (NO INTEGER'S) 



** 

'M* K 



'** NOTE: PLEASE USE 9MATH ONLY. (NU lNiwt^a^ — 
twdhT"NI1MBPR TO USE ":NM! 



INPUT"NUMBER 
@NM!=NM!+"0" 



TO USE ";NM! 
NM!=NM!+"!" 



' MAKE A SINGLE PREC. NUMBER 



XV 
XV 
XV 
XV 
XV 
XV 
XV 
XV 
XV 



=NM 
=NM 
=NM 
=NM 
=NM 
=NM 
=NM 
=NM 
=NM 



:GOSUB360sPRINT"THE 
: GOSUB370 : PR I NT " THE 
:GOSUB380:PRINT"THE 
: GOSUB390 : PR I NT " THE 
:GOSUB400:PRINT"THE 
:GOSUB410:PRINT"THE 
: GQSUB420 : P R I NT " THE 
:GOSUB430:PRINT"THE 
: GOSUB440 s PR I NT " THE 



SIN(" 
COS ( " 
TAN ( " 
ATN ( " 
SQR ( " 
LOG ( " 
EXP(" 
ABS ( " 
INT(" 



NM! 
NM! 
NM! 
NM! 
NM! 
NM! 
NM! 
NM! 
NM! 






;XV! 
;XV! 
;XV! 
;XV! 
;XV! 
;XV! 
5 XV! 
5 XV! 



)=" ;XV! 



**** The following MERGE machine language lines conv- **** 
**** ert the variable XV! to BINARY and back again. **** 
**** Be sure to type the code exactly as below in **** 
**** your programs when using these scientific func- **** 
*■*** tions in your programs. ^^^.ol******** 

, X-. the 'V POINTS TD THE INPUT VARIABLE. 

MERGP *21.XV»%CD,%E6C:POKE*40AF, 4: RETURN'- MAKE BINARY - 
OK «i XV! *3E 128,%32,%40D8,%01,%0909 *36 ; ,*20 > W FC1 
1 ft THE 'A' POINTS TO THE OUTPUT VARIABLE. 



@XV!=XVH 

6QSUB300: 
GOSUB300! 
GOSUB300: 
GOSUB300 
GQSUB300 
GOSUB300 
GOSUB300 
GOSUB300 
GOSUB300 



■«0»: RETURN :' CLEAR LEADING ZERO'S 



MERGE%CD, 
:MER6E%CD, 
;MERGE%CD, 
:MERGE%CD, 
:MERGE%CD, 
:MERGE%CD, 
:MERGE%CD, 
:MERGE%CD, 
sMERGE%CD, 



%1547: 

%154l! 

*15A8; 

*15BD 

%13E7 

%0809 

%1439 

%0977 

%0B37 



!GOTO310:' SIN 

IGOTO310:' COS 

:GOTO310:' TAN 

:GOTD310:' ATN 



GOTOSIO:' 
IGOTO310:' 
:GOTO310:' 
:GOTO310:' 
JGOTO310:' 



SQR 
LOG 
EXP 
ABS 
INT 
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10 » ================= ZBASIC 2.2 SIN/COS/TAN =============== 

23 PRINT" INPUT AN ANGLE FROM TO 363 DEGREE'S" 
30 INPUT"ANGLE TO COMPUTE SIN/COS/TAN FROM ";A! 
4« SYSTEM BASIC 

50 £A!=A!+"0" ' STANDARD BCD FORMAT 

60 X!=A! : GOSUB 1000 : PRINT"SIN <"; A !:">=" ;Y ! 

70 X!=A! : GOSUB 2000 : PRINT"COS < " ; A! ; "> =" ;Y ! 

80 X!=A! : GOSUB 3000 : PRINT"TAN ( " ; A J ; ")=" ;Y ! 

90 GOTO 10 

1000 *================ X!=SIN(X!) in DEGREE'S ============== 

1010 ZZ!=RIGHT$<X!,LEN<X! >-l) : ' ZZ!=ABS(X!) 

1020 GZ!=Z2!/X! : <?XL=Z! * X! : ' SET UP SIGN 

1030 ©CP!="360"-X! : IF ASC<CP. r >=45 THEN X!=CP! : GOTO 1030 
1040 <?CP!="90"-X! : IF ASC<CP!>=45 THEN @X ! ="180"-X ! 

1050 £X!=X!/ "57. 29578" : ' CONVERT TO RADIANS 

1060 ZZ!=RIGHT$<X!,L£N<X!)-1) : ' X!=ABS<X!) 

1070 T!=X! 

1080 GOSUB 1170 s @ZZ!=T!/"6" : SY!=X!-ZZ! 

1090 GOSUB 1170 : @ZZ ! =T! /" 120" : @Y!=Y!+ZZ! 

1100 GOSUB 1170 : C*ZZ !=T ! /"5040" : C-Y!=Y!-ZZ! 

1110 GOSUB 1170 : @ZZ !=T ! / "362880" : £Y!=Y!+ZZ! 

112 » FOR ADDED ACCURACY ADD THE FOLLOWING 

1130 'GOSUB 1178 s i?ZZ!=T!/"39916800" : £Y!=Y!-ZZ* 
1140 'GOSUB 1170 : C-ZZ ! =T !/ "6227020800" : <?Y!=Y!+ZZ! 
1150 'GOSUB 1170 : £ZZ ! =T! /" 1307700000000" : ©Y!=Y!-ZZ! 
1160 RETURN 

1170 <?T!=T!*X!*X! : RETURN.: ' NEXT CUBE SUBROUTINE 

2000 '=======•========= X!=COS(X!) in DEGREE'S =============: 

2010 i?X ! =X ! +"90" :C*CP ! ="360"-X ! 

2020 IF ASC<CP!)=45 THEN @X ! =X ! -"360" 

2030 GOTO 1000 

3000 »================ X!=TAN(X!) in DEGREE'S ============= 

3010 T1!=X! : GOSUB 2000 : T2!=X! : X!=T1! : GOSUB 1000 
3020 @Y!=Y!/T2! : RETURN 



HIGH SPEED GRAPHIC CIRCLE 



XP=-X*3i 
YP*X*23/1000+24 



100 CLS' 

110 FOR 1=0 TO 359 

120 X=I : GOSUB 170 

130 X=I s GOSUB 180 

140 SETCXP, YP) 

150 IF PEEK (14400) =4 THEN STOP 

160 NEXT I : GOTO 100 

170 X=X+90' COS<X)*1000 

180 IF X>359 THEN X=X-360' — SIN<X)*1000 

190 S=0 : IF X>179 THEN X=X-180 : S=l 

200 IF X>89 THEN X=180-X 

210 X=174*X/10 : R=X/10 : Z=R*R/200*R 

220 X=X-Z/30+Z/100*R/250*R/240 : IF S THEN 

230 RETURN 



ENTRY POINT 
ENTRY POINT 



X=0-X 
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100 

110 
120 

130 
140 
150 
160 
170 
180 
190 

£00 

£10 
220 
£30 
£40 
£50 
£60 
£70 
£80 
£90 

300 

32® 
330 
340 
350 
360 
370 
380 
390 

400 

410 
420 
430 
440 
450 
460 
470 
480 
490 

500 



SET(1£7, I) 



CLS » ZBASIC 2.2 PDNG GAME 

PRINTG14, " SIMUTEK ZBASIC £. £ PONG-PING " 

FOR 1=0 TO 127 : SET(I,3) : SET(I,47) : NEXT I 

FOR 1=3 TO 47 

BET (1,1) : SET (126, I) : SET (0,1) 

NEXTI 

FOR 1=60 TO 68 : FDR J=££ TO £6 

Pl=15878 : P£=159£9' PLAYER 

X=54 : Y=£0 : XD=£ : YD=1' BALL 
KB=PEEK( 14400)' READ FULL 



;CHR*(15) 



IF 
IF 
IF 
IF 
IF 



STOP' 

GOSUB 330' 
GOSUB 360' 
GOSUB 4£0' 
GOSUB 390' 



<UP ARROW) 
<DN ARROW) 
(CLEAR) 
(RT ARROW) 



KB AND 4 THEN 

KB AND 8 THEN 

KB AND 16 THEN 

KB AND £ THEN 

KB AND 64 THEN 

RESET (X,Y)' 

X=X+XD : IF POINT 
Y=Y+YD : IF POINT 

SET (X,Y)' 

IF l/£=0 THEN FOR I=0TO£00 : NEXT I' 
IF X<5 THEN S£=S£+1 : PRINT £56, S£; 
IF X>1££ THEN S1=S1+1 : PRINT©©, SI ; 

GOTO 190' MAIN GAME LOOP 

' PLAYER #1 UP — 

IF PI < 15552 THEN RETURN 



: SET(I, J) : NEXT J, I 

1 & £ PADDLE POSITIONS ■ 

POSITION & DIRECTION FLAGS 

KEYBROD ROW FOR ARROWS 

- RETURN TD BASIC 

PLAYER #1 UP 

PLAYER 

PLAYER 

PLAYER 



#1 
#2 
#£ 



DOWN 
DOWN 
UP 



(X,Y) 
(X,Y) 



GOSUB 450 
GOSUB 450 



- TURN OFF OLD BALL — 
THEN X=X-XD : XD=0-XD 
THEN Y=Y-YD : YD=0-YD 

— TURN ON NEW BALL 

TIME DELAY 

GOSUB 480 
GOSUB 480 



POKE PI +64, 128 

IF PI ) 16192 
POKE PI, 128 : 



POKE PI, 191 
#1 DOWN 



Pl=Pl-64 : 

PLAYER 

THEN RETURN 

Pl=Pl+64 : POKE Pl+64, 191 : 

i PLAYTER #£ UP 

IF P£ (15552 THEN RETURN 

POKE P2+64, 128 : P£=P2-64 : POKE P£, 191 s 

» PLAYER #2 DOWN 

IF P2) 16192 THEN RETURN 

POKE P2, 128 s P2=P2+64 ; POKE P2+64, 191 : 

' BEEP OFF WALL 

IF 1/2=0 THEN EDIT (256, 50, 20) ' TRUE ONLY 
RETURN 

IF 1/2-a THEN EDIT< 25 ^f 5 0> " TRUE ONLY IN 
RETURN 



RETURN 



RETURN 



RETURN 



RETURN 



IN ZBASIC 



ZBASIC 
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100 » MERGING MACHINE LANGUAGE INTO 2.2 

11® CLS: PRINT" PRESS ANY KEY" 

120 X$=INKEY*:IF X*=""THEN 120:' DELAY TILL A KEY IS PRESSED. 

130 POKE 15360, 191 

140 » * NOW MERGE MACH- LANG WITH BASIC 

150 ' 

160 MERGE 33, %3C00' LD HL, 3C00H 

170 MERGE 17,%3C01' LD DE, 3C01H 

180 MERGE 1,*03FF' LD BC, 03FFH 

190 MERGE 237,176* LDIR 

200 GOSUB 260* CALL LINE200 

210 »-• END OF MACH. LANG. PROGRAM 

220 ' 

230 DELETE 2000* DELAY 2000 MS (APROX 2 SECONDS) 

240 PRINTG0, "DONE. "' FINISHED! 

250 STOP 

2S0 ' 

270 * SUBROUTINE 

280 ' 

290 POKE 15360, ASC<"*") 

300 ERL<63, 15361,15360)' LDIR TOP LINE 

310 RETURN' RET 



100 INPUT"SQUARE ROOT OF ":SQ! : SYSTEM BASIC 

200 GSQ#=SQ#*SQ# i '** THE RESULT SHOULD EQUAL THE INPUT! ** 

300 GOSUB 64000 : PRINT"SQR ( " ;SQ ! ; ") =" ; Y# : GOTO 100 

64000 ' ************#**#*#***#***#*#*********■* 

64010 '** ZBASIC 2.2 SQUARE ROOT ROUTINE ** 

64020 '** ACCURATE TO APROX 20 DIGITS!!! ** 

64030 '** ON ENTRY SQ!, ON EXIT Y# ** 

64035 '** X#,W#, Z#,CP# ARE ALTERED ** 

64040 ' *********#*****#*###*#*##***■*•*■*#■***•*■*■* 

64050 <?X#=SG#+"0" 2 IF X#=" 0.00" THEN Y#=X# : RETURN 

64060 IF ASC<SQ#)=45 THEN Y#= ,, *ERROR* u : RETURN 

64070 @Y#=X#*".5" : Z#="0" 

64080 @W#=X#/Y#-Y#*".5" 

64090 <?CP#=W#-Z# : IF CP#=" 0.00" OR CP#="-0. 00" THEN RETURN 

64110 @Y#=»Y*M-W# : Z#=W# : GOTO 64080 
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100 
110 
120 
130 

140 
150 
160 
170 
180 
190 

200 

£10 

220 

£30 

240 

£50 

260 

£70 

280 

£90 

300 

310 

3£0 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 



i HIGH 

PRINTCHR*(15)' 

POKE 15360, 1£S 

FOR I=1T01£7 : SET (I, 1) 

FOR I=1TD47 : SET<1£7, I) 

PRINT@132, "ZBASIC 2.2"; 

KB=PEEK( 14400)' 



SPEED SCREEN MOVE ZBASIC £. £ EXAMPLE 

TURN OFF CURSOR 
* GRAPHIC CLS * 
SET (I, 47) : NEXT 
SET (64, I) : NEXT 



ERL(10£3, 15361, 15360) 
SET (I, £4) : 
SET (1,1) : 



IF 
IF 
IF 
IF 
IF 
IF 



KB 
KB 
KB 
KB 
KB 
KB 



GOTO 

9 



AND 
AND 
AND 
AND 
AND 
AND 
160 



4 

d 

16 

32 

64 

2 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



STOP' 

GOSUB 

GOSUB 

GOSUB 

GOSUB 



£40' 
£90' 
340' 

400' 



X=FIX (1024, 63, 15360) 



KEY 
64' 



SCROLL LEFT 



UP ARROW KEY SCROLL UP 

ERL (64, VARPTR (A*) , 15360) ' 
ERL(960, 15360, 15424)' 
ERL (64, 16320, VARPTR (A*))' 

RETURN 

» DOWN ARROW KEY SCROLL DOWN 

ERL (64, VARPTR (A*) , 16320) ' 
ERR (960, 16383, 16319) ' 
ERL (64, 15360, VARPTR (A*) )' 

RETURN 

, . LEFT ARROW 

FOR 1=15360 TO 16320 STEP 

A=PEEK(I)' 

ERL(63, I, 1 + 1)' 

POKE 1+63, A' 

NEXT I: RETURN 

, RIGHT 

FOR 1=15360 TO 16320 

A=PEEK(I+63)' 

ERR (63, 1+63, 1+62)' 

POKE I, A' 

NEXT I : RETURN 



ARROW KEY 
STEP 64' 



SCROLL RIGHT 



KEYBOARD SCAN 
(BREAK) 
<UP ARROW) 
(DOWN ARROW) 
(LEFT ARROW) 
(RIGHT ARROW) 
(CLEAR) 



SAVE TOP LINE 

MOVE UP 

TOP TO BOTTOM 



SAVE BOT. LINE 
MOVE LINES DOWN 
BOTTOM TO TOP 



DO EACH LINE 
SAVE LEFT SIDE 
MOVE OVER ONE. 
END TO END- 



DO EACH LINE 
GET END CHAR. 
MOVE LINE OVER 
NEW END CHAR. 



ii -■*-«■ 



100 PRINT "PACKED STRINGS ARE ALLOWED IN ZBASIC 

110 PRINT 

120 PRINT 

130 PRINT 

140 PRINT 

150 PRINT 

160 PRINT 

170 i __ THE 0NL Y TWO CHARACTERS WHICH MAY NOT APPEAR — 

180 ', — IN A QUDATED STRING ARE CHR*<0) AND CHR$<34) — 







